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INTRODUCTION 



This manual contains operating instructions, technical descriptions, flow charts, and listings for 
the 900 Series Computer SYMBOL Assembler. This material supplements the SYMBOL and META- 
SYMBOL Reference Manual and provides information for possible modification and maintenance 
of the assembler. 

To use this assembler with maximum efficiency, the programmer should be conversant with the ma- 
chine instructions described in the reference manual for the applicable SDS 900 Series Computer. 

Input may be from paper tape, cards, magnetic tape, or typewriter keyboard. 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 012008 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 



PURPOSE: 



USE: 



SDS 900 Series SYMBOL System Description 

SDS 

January 21, 1965 



Any SDS 900 series computer with at least 4, 096 words of 
magnetic core memory, a typewriter, and an output device 
(punched paper tape or cards and/or buffered line printer). 

To assemble source programs written in the SYMBOL 
assembly language. 



1 . General 



SYMBOL is a two-pass assembly program for the SDS 
900 series and 9300 computers. It is designed to operate 
on a minimal 4K computer with at least one symbolic input 
device and at least one output device. 

The assembler proper consists of three parts and requires 
a total of 

Part I: 01463 

Part II: 02102 

Part III: 00725 



0451 2 words 

To this total must be added the load origin (00 366 for the 
910/925, 00233 for the 920 and 00161 for the 9300), the 
length of the I/O subroutines to be loaded, and the length 
of the mnemonic table. All remaining memory is used 
for working storage, irrespective of the computer size. 
While available space is thus variable, there is in general 
space for approximately 300 symbols (literals, external 
references, OPDs and POPDs) on a computer with 4K 
memory. An additional nK memory will provide space for 
nK/3 additional items. 
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USE: (Cont) During the first pass, source lines are read and a 

location counter is maintained which is used for defining 
labels. All labels are defined in pass 1. Except for label 
fields, only directive lines are processed during pass 1. 
Other lines may cause the location counter to be incre- 
mented by the operand field of such lines are not processed, 
Consequently, no literals or external references are pro- 
cessed during pass 1. 

At the conclusion of pass 1, all labels which have been 
designated as external labels are output. No further ent- 
tries can be made in the mnemonic table or in the symbol 
table. During pass 2, all lines are completely processed 
and both object code and a listing are generated. Literals 
are inserted in the literal table and references are inser- 
ted in the reference table. At the conclusion of pass 2, 
the literals are output and finally the references are 
output. 

At this point, another assembly may be started without 
reloading the assembler. Before doing the assembly, 
SYMBOL, will clear the mnemonic command table of any 
programmer defined entries left over from the previous 
assembly. 

2. SYMBOL Paper Tape (Card Deck) System 

A SYMBOL system consists of the following segments: 

1. SYMBOL Loader (Cat. No. 012012). The SYMBOL * 
loader consists of an absolute bootstrap, a pre- 
loader and a loader. 

2. Input/ Output Subroutines 

a. Paper Tape/ Typewriter Input Subroutine 
(Cat. No. 020024) 

b. Card Reader Input Subroutine (Cat. No. 
030009) 
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USE: (Cont) c. Magnetic Tape Input Subroutine 

(Cat. No. 040007) 

d. Paper Tape Punch Binary Output Subroutine » 
(Cat. No. 020025) 

e. Card Punch Binary Output Subroutine 
(Cat. No. 030008) 

f . Typewriter Listing Output Subroutine *<-'*"' 
(Cat. No. 020023) 

g. Line Printer Listing Output Subroutine*^ 
(Cat. No. 062002) 

3. SYMBOL Part I (Cat. No. 012005) * 

4. SYMBOL Part II (Cat. No. 012009)- 

5. SYMBOL Part III (Cat. No. 012010)' 

6. SYMBOL Mnemonic Table 

a. 900 Series SYMBOL 910 Mnemonic Table '^ 
(Cat. No. 012006) 

b. 900 Series SYMBOL 920 Mnemonic Table 
(Cat. No. 012011) 

c. 900 Series SYMBOL 9300 Mnemonic Table 
(Cat. No. 012007) 

As stated in the SYMBOL Loader description, the order 
and number of the I/O subroutines is unimportant. 
Similarly, the internal ordering of the SYMBOL Parts I, 
II and III is unimportant. There must be only one of the 
above mentioned mnemonic tables included in a system. 

T he SY MBOL paper tape s y s temm^k^up^tfedj,, or put 
together originally by reproducing & a f\hjgjRgm e, p t or|, t ° Qn _ e 
continuous paper tape, through the use^of the SYMBOL ^ 

Reproduce and Update routine (Cat. No. 012014). /" 
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USE: (Cont) 



3. Memory Allocation 



End of Memory 



L 



S3 



S2 



SI 



Symbol Table 



Reference Table 



Literal Table 



Expanded Mnemonic Table 
Standard Mnemonic Table 



Binary and Listing 
Editing Routines 



Arithmetic and Table 
Handling Routines 



Main Assembler Control 



Listing Output Segment 



Binary Output Segment 



Symbolic Input Segment 



Temporaries and POPs 
(900 Series) 



00000 

910, 925: L = 00366 

920, 930: L = 00233 

9300 L = 00161 

During pass 1, OPD and FORM definitions are added to 
the Standard Op Table to form the Mnemonic Table. A 
flag is set in such entries to enable them to be extracted 
before a new assembly is started. 
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USE: (Cont) The SYMBOL table starts at the end of memory and new 

entries cause the table to be expanded downward (to lower 
numbered locations). Entries are made in this table only 
during pass 1 . 

During pass 2, literals are processed and cause entries 
to be inserted in the literal table. The literal table begins 
at the (high) end of the mnemonic table and new entries 
cause the table to be expanded upwards. 

Also during pass 2, external references are processed 
and cause entries to be inserted in the reference table. 
The reference table begins at the (low) end of the symbol 
table and new entries cause the table to be expanded 
downwards . 

4. Tables 

Mnemonic Table Entries 



Bits Word 



0-23 


1 


0-11 


2 


12, 20 


2 


13 


2 


16 


2 


17 


2 


18 


2 


19 


2 


20 


2 


21 


2 


22 


2 


23 


2 



First four characters of symbol 

Fifth and sixth characters of symbol 

I/O command with unit and channel 
to be supplied (e.g., RPT) 

Programmed operator 

Not used 

Duplicate Flag 

Programmer defined entry (OPD, 
FORM, POPD or external POP) 

Instruction, octal address 

Instruction, I/O command with 
channel specified (e.g., RPTW) 

Directive, special label definition 

Directive, normal label definition 

Form 
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USE: (Cont) If bits 12, 21, 22 and 23 are off, the third word contains 

the data word without parameters. 

The third word of directive entries (bit 21 or 22 on) 
contains the starting address of the lines of instructions 
which process the directive line encountered. 

The third word of a form item (bit 23 on) contains a form 
pattern word; i.e. , a word with a one in the leading bit 
position of each field, and zeros elsewhere. 

The third word of a programmed operator entry (bit 13) 
has the following format: 

Bits 0-1 Type (0 internal definition, 1 external 

reference, 2 external definition) 

Bits 2-7 Programmed operator number (assigned 

at end of pass 1) 

Bit 8 Relocation bit (if definition) 

Bits 9-23 Address of programmed operator 

interpretive code 



Bits Word 



0-23 


1 


0-11 


2 


17 


2 


22 


2 


23 


2 


0-23 


3 



Symbol Table Entries 



First four characters of symbol 

Fifth and sixth characters of symbol 

Duplicate flag 

Relocatable flag 

External flag 

Value 
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0-23 


1 


0-11 


2 


0-23 


3 



0-23 


1 


22 


2 


0-8 


3 


9-23 


3 
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USE: (Cont) Reference Table Entries 

Bits Word 

First four characters of symbol 

Fifth and sixth characters of symbol 

Location of last data word to reference 
this symbol 

Literal Table Entries 

Bits Word 

Literal value 

Relocatable flag 

Literal sequence 

Location literal will occupy in the 
object program 

5. Operation 

1. Load SYMBOL Loader by a FILL procedure. 

2. Type Loader control message to provide for selective 
loading of I/O routines (see SYMBOL loader writeup 
for syntax and other details). 

3. Ready input. 

4. Clear the halt. 

5. After pass 1, the computer will perform the 
following action: 

Paper Tape/Typewriter : Halt. In order to 

continue, reposition 
input and clear the halt. 

Cards : The computer will 

remain in a CRT, BRU 
$-1 loop until the card 
reader is again made 
ready. 
1-7 
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USE: (Cont) ' Magnetic Tape : No operator intervention 

required. 

6. After pass 2, the computer will halt prepared to 

under take an additional assembly. 

6. Diagnostics 

SYMBOL, provides the user with an unusual degree of 
error detection, which is conveyed by the appearance of 
up to four single -character diagnostic flags in columns 
1-4 of the output listing. These flags and their meanings 
are explained below. 

Flag Error Action 

D Duplicate Duplicate symbol definition or 

reference. 

References to duplicate symbols 
take the value of the first 
definition. 

E Expression Illegal expression in operand 

field. Operand interpretation 
is terminated. 

I Instruction Instruction mnemonic not 

defined. Treated as HLT for 
9300 and as implicit POP 
reference for 900 series. 

L Label Illegal symbol in label field. 

P Parentheses Too many parentheses levels 

or unequal number of left and 
right parentheses . Operand 
interpretation is terminated. 

R Relocation Operand expression involves 

illegal use of one or more 
relocatable items. The correct 
(but non-relocatable) value of 
the expression is determined 
and output. 

1-8 
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USE: (Cont) 



Truncation 



Significant bits were lost due to 
left-hand truncation in inserting 
a value into a specified field. 
If the field size is n, the result 
is the value of the expression 
modul 2 



>n 



External 



An external address reference 
has been made which may or 
may not be in error. 



U 



Undefined 



A reference has been made to 
an undefined symbol in other 
than the address field. Zero 
is substituted for the undefined 
value. 



O 



Overflow 



The assembler's symbol table 
has overflowed, but assembly 
continues. Recovery is 
possible only by reducing the 
number of symbols through 
elimination or through program 
segmentation. 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 012012 



IDENTIFICATION: 



AUTHOR: 



900 Series SYMBOL Loader 
SDS 



ACCEPTED: 

COMPUTER 
CONFIGURATION: 



January 21, 1965 



Any SDS 900 Series computer with at least 4,096 words of 
memory, a typewriter and either a paper tape or a card 
reader. 



PURPOSE: 



STORAGE: 



USE: 



To load the SYMBOL assembler. 

To load selectively the input/output routines for SYMBOL as 
specified by the operator. 

To determine memory size for SYMBOL. 

To load the appropriate Programmed Operators (900 series 
only). 



00000 - 00161 
04000 - 04264 
(X-00210)-X 



Read Buffer, READ, LOAD and END Routines 
Control Message Processor 
Main Loader Logic, where X = highest 
address in the computer 



After the control message has been received and processed, 
and the I/O routines have been loaded, the control message 
processor is overlaid. 

In addition to the above, a Programmed Operator Package is 
loaded for the 900 Series SYMBOL which extends from 00161 
to 00233 for the 920, 930 (00161 to 00366 for the 910, 925). 

The SYMBOL Loader is preceded by an absolute bootstrap 
(Cat. No. 020020 for paper tape, Cat. No. 030006B for cards), 
and a pre-loader which computes memory size and relocates 
it into upper memory. It is loaded by the normal FILL pro- 
cedure. Upon completion of loading, the Loader addresses 
the console keyboard to permit the operator to specify the 
I/O media appropriate to the current assembly. 
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USE: (Cont) 



The operator should in addition set Breakpoint 1 if the 
Loader is to load SYMBOL from cards. After SYMBOL has 
been loaded, a halt will occur (in a location whose value 
depends upon the machine and upon the length of the I/O 
routines loaded. At this time the operator has only to 
ready the symbolic input and clear the halt. This is the 
only halt present in the assembler. 

Following the first assembly, SYMBOL will reinitialize 
itself and halt in the same location, ready to process another 
program. It is not necessary to reload the assembler 
unless different I/O media are required. 

The loading process may be reinitialized at any time prior 
to the reading of the first record by the execution of a 
branch to location 1. 

Control Message Syntax 

A control message consists of the character A followed by 
from one to three of the characters M, P, T, C, L, N and 
terminated by a carriage return. These characters have 
the following significance: 



1 st character 
2nd character 
3rd character 
M 
P 
T 
C 
L 
N 



Symbolic Input Device 

Binary Output Device 

Listing Output Device 

Magnetic Tape 

Paper Tape 

Typewriter 

Cards 

Line Printer 

None 



A control message may be cancelled at any time preceding 
the carriage return by typing a virgule (/). 

Characters absent from the control message are considered 
equivalent to trailing N's. 



2-2 



Page 3 of 4 Catalog No. 012012 



USE: (Cont) Examples 



ACPT (^ : SI = Cards, BO = Paper Tape, 

LO = Typewriter 

APP^ : SI = Paper Tape, BO = Paper 

Tape, LO = None 

AM R/AM C L (^ : SI = Magnetic Tape, BO = 

Cards, LO = Line Printer 

Halts 

00120 : Input error: buffer error, checksum error or 
card feed error. To recover, reread the 
offending record. 

07643 : Loader's symbol table has overflowed. This halt 
cannot occur during loading the standard SDS 
910/925, 920/930 or 9300 assemblers, but can 
occur when loading the 910/925 assembler with 
the 920/930 op table on a minimal (4K) 910/925. 
It could also occur in the event that the user re- 
placed the standard I/O subroutines with ones 
that were more space consuming. 

METHOD: After addressing the keyboard, the Loader ignores all 

characters until a A has been read, and then accumulates 
up to three characters until a carriage return is received. 
The first character is associated with symbolic input, the 
second with binary output, and the third with listing output. 
Thus, if the characters C, P and T have been input, the 
associations CSI, PBO and TLO are made. 

Next an input record is read and scanned for an external 
definition coinciding with CSI, PBO or TLO. If coincidence 
is detected, all records are read and accepted until an END 
record is encountered. If coincidence is not detected, the 
input record is scanned for the appearance of any legitimate 
I/O external definition (such as PSI, LLO, etc. ). If one is 
found, the record is known to herald an I/O routine, the 
Loader reads but ignores all records up to and including the 
END record, and the above process is repeated. If however 
none is found, the I/O routines are exhausted and the Loader 



2-3 



Page 4 of 4 Catalog No. 012012 



METHOD: (Cont) abandons search mode for load mode. All records are now 

read until an end record with transfer address is encountered. 

By adhering to these conventions, the user may at will add 
additional I/O routines to correspond to non-standard 
peripheral devices. While the order and number of I/O 
routines is unimportant, they must all be grouped together 
between the loader and the assembler. Similarly, the 
three assembler parts may be in any order but the mnemonic 
table must be loaded last. 
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900 SERIES SYMBOL LOADER 




STRT 



Start keyboard 



RESET 



Initialize indicators 



CIN 



Read a character 



No f T " " \ 

l— ^ — I Character = A 1 



Yes 



NXTCHR 



* Read a character 



Yes 



c 



Character = / 



J 



No 



c 



Character = C 



> 



Yes 



No 



Yes 



{ Rec'd 3 characters J 



No 



Save character 



Compare memory size. 
Save in 00154 for SYMBOL 



[ BP1 


set 


; — 


Yes 
ir EITHER 




Alter read routine to 
read from cards 










i r LI03 



f Test for 910, 925 J-^2! J ] J 

No 



Replace 910 POPs with 
920 POPs 



No 



Re-establish SYMBOL 
load origin 



6 
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900 SERIES SYMBOL LOADER (cont.) 



O 



no 



Read a record 



Initialize indicators 



Access indicated ext. def. 



(Check for 2nd and 3rd \ 
chars. = SI, LO, or BO J 



No 



Yes 



Does 1st char, coincide^ 
with that supplied by 
operator j 



Yes 



Set flag (ONEIO) and 
nullify def. 



v NO LOAD 



(Does 1st char. = \ No 
n,T,P,C, or L J 



Yes 



Set flag (ANYIO) 



* NEXT L 

( End of record (last def.JV^- 



^ 



J 



No 



Increment indicator 



/*" Was record an I/O ^ No 
"H record 'ANYIO *t>t) J—— — 



Yes 



(Should this I/O routine ^ No 
be loaded (ONEIO set) J~"^ 



C 



Yes 



Load record 



End record 



No 



% READIO 

Read a record 



ST) 



y*—+Q 
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900 SERIES SYMBOL LOADER (cont.) 



c 




SICT = T or P 



J 



No 



Deposit appropriate EOM 
in input routine 



Determine delay constant 
Deposit in input routine 



■*>*- 



Load a record 



LAP 



Read a record 




READ 



Select I/O device 



Read control word 



Read remainder of record 
Build checksum 



c 



Buffer 



c 



> 



Yes 



No 



Checksum error 



No 



3 



Yes 



V 



f Card feed check J ** M HALT 1 

I No ^T^ 
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900 SERIES SYMBOL LOADER (cont.) 




LOAD 



Initialize pointer 



(Current record an l No fcf Current record an ext. \ No ^ f 

end record J ^[ ref./def. record J \^ 



c 



Yes 



Transfer address present 



> 



No 



Yes 



NOP all unsatisfied ext. 
refs. (refs to unloaded 
I/O) in assembler 





* Increment load bias 



.EXIT 




DATA 



Record relocatable 



I Yes 



y 



No 



Add bias to record origin 



Deposit record at 
appropriate origin 



Update maximum 
load address 



EXIT, 
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900 SERIES SYMBOL LOADER (cont.) 




EXT 



Indicated ref. /def. 
—ALFA, BETA 



Relocate if necessary 
VALUE — »- (LOC) 



Yes 



(Check for nullified ^ 
I/O identifier J 



c 



No 



SYMBOL table empty 



)Yes 
¥ 



No 
+ SRCH 1 



Search SYMBOL table 



c \ 

I Item found J 



No 



/SYMBOL tabie item \ 

UTO, TO + 1 , TO + 2) a defy 



Yes 



No 



(\No 
ALFA, BETA, LOC a def. J^~ 



Yes 



TXRD.TXDR 



Address portion of (LOC) *■ 

(TO + 2), *(TO + 2), *(*TO + 2), 
etc. until ref. chain terminates 



NSRT 



Insert (ALFA, BETA, LOC) 
in SYMBOL table 



I Table overflow J 



No 




TXDR 



Satisfy ref. 



TXRR 



Link ALFA, BETA, LOC 
to existent ref. chain 



+ < 

j NEXT I 



Increment indicator 



No, N 

I End of record J 



Yes 



iEXIT 




2-9 



Page 1 


of 20 










LISTING 


Catalog No. 012012 


A ASSIGN 


si 


CR EI CR L8 


LP E8 ( 


:p BO 1 


CP S MTO 


XI MTl X2 MT2. 




AASSIGN ST- 


CR. 


»EP 


=CR*E6=CP,B8= 


S PP#L6=LP. 








A METASYM SI,I 


L0,l 


BO. 












03000 








1 




AORG 


03000 






00000000 


2 


S9300 


EQU 









00000000 


3 


xo 


EQU 


S9300 






00000002 


4 


X2 


EQU 


2-S9300 






00000000 


5 


Ch 


EQU 









00000001 


6 


U 


EQU 


1 




03000- 





75 


03121 


7 


START 


LDB 


= -1 


COMPUTE MAXIMUM MEMORY ADDRESS 


03001 





76 


03122 


8 




LDA 


=040000* /S9300+2047 




03002 





54 


03123 


9 


L00P1 


SUB 


=04000 




03003 





35 


03113 


10 




STA 


BIAS 




03004 





35 


1 03113 


11 




STA 


*BIAS 




03005 





70 


1 03113 


12 




SKM 


♦BIAS 




03006 





01 


03002 


13 




BRU 


loopi 




03007 





54 


03124 


14 




SUB 


*4095 


SUBTRACT 07777 


V 03010 





35 


03113 


15 




STA 


BIAS 


BIAS=MEMORY SIZE-4K 


3 03011 





40 


21000 


16 


BPT 


BRTW 






03012 





01 


03011 


\7 




BRU 


BPT 




03013 





40 


20400 


13 




BPT 


1 




03014 





01 


03017 


19 




BRU 


CARDS 




03015 





02 


02604 


20 




RPT 


CH,U,4 




03016 





01 


03022 


21 




BRU 


READ 




03017 





40 


12006 


22 


CARDS 


> CRT 


CH,U 




03020 





01 


03017 


23 




BRU 


CARDS 




03021 





02 


03606 


24 




RCB 


CH,U*4 




0302? 





32 


03114 


25 


READ 


UIM 


CW 


CONTROL UORD 


03023 





76 


03114 


26 




LDA 


CU 




03024 





02 


20001 


27 




Rev 






03025 





6700 003 


28 




LSH 


3 


END RECORD TURNS ON OVERFLOW 


03026 





6600 022 


29 




RSh 


18 




03027 





35 


03116 


30 




STA 


C8UNT 


WORD COUNT 


03030 





40 


21000 


31 




BRTU 




CHECK FOR CARD FEED ERROR 


03031 





01 


03033 


32 




BRU 


$ + 2 


NO 


03032 





01 


03111 


33 




BRU 


ERROR 


YES 


03033 





32 


03115 


34 




UIM 


LOC 


RECORD ORIGIN 


03034 





76 


03115 


35 




LDA 


LOC 
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LISTING 



Catalog No. 012012 



03035 


03036 


03037 


03040 


03041 


0304? 


03043 


03044 


03045 


03046 


03047 


03050 


03051 


03052 


03053 


03054 


03055 


^ 03056 


^ 03057 


— 03060 


03061 


0306? 


03063 


03064 


03065 


03066 


03067 


03070 


03071 


03072 


03073 


03074 


03075 


03076 


03077 


031C0 


03101 


03102 


03103 



72 03125 
55 03113 
40 20001 
76 03112 
35 03117 
35 03120 
76 031 15 
6600 023 
55 03126 
54 031 16 
35 03H6 
76 03114 
17 031 15 
71 03116 
01 03057 
32 1 03117 
17 1 03117 
610 03117 
41 03054 
32 031 14 
17 03114 
40 20400 
02 12006 
40 20C1C 
01 0311 1 
35 C 03115 
6600 014 
17 03 115 
75 03111 
70 031 11 
01 03111 
71 03116 
75 03114 
01 03107 
36 031 17 
76 1 03120 
5 5 3113 
53 03117 
01 03105 



36 


SKA 


=01700000 


37 


ADD 


BIAS 


38 


>ovt 




3 9 


LDA 


BRUX* 


40 


STA 


Tl 


41 


STA 


T2 


^2 


LDA 


L8C 


43 


RSH 


19 


44 


ADD 


=00200001 


45 


SUB 


COUNT 


46 


STA 


C8UNI 


47 


LDA 


cw 


4* 


E8R 


L8C 


49 


LDX 


COUNF,XO 


50 


BRU 


BRX1 


51 L00P2 


WIM 


*T1 


52 


EOR 


*T1 


53 


MINI 


Tl 


54 9RX1 


y BRX 


L00P2,X0 


55 


UIM 


REL 


56 


EOR 


REL 


57 


BPT 


1 


53 


SRC 


CH,U 


59 


BETW 




60 


BRU 


ERROR 


61 


STA 


CS 


*2 


RSH 


12 


63 


EOR 


cs 


64 


LDB 


ERROR 


65 


SKM 


ERROR 


6 6 ^ 


I BRU 


ERROR 


67 


H5LDX 


COUNT, XO 


6d 


LDB 


REt. 


69 


BRU 


BRX2 


70 L80P3 


STB 


Tl 


71 


LDA 


*T2 


72 


ADD 


BIAS 


73 


SKN 


Tl 


74 


BRU 


MIN 



IS RECORD RELOCATABLE 

YES 

NO. CHECK FOR END RECORD 

YES 

Tl,T2 NOW POINT EITHER TO RECORD 

ORIGIN OR TO EXIT 

(A)=T IF REL WORD PRESENT 

COMPUTE XREG CONSTANT CORRESPONDING 

TO NUMBER OF DATA WORDS TO READ 

BEGIN CHECKSUM 

READ RECORD 

READ IN REL WORD IF ANY 

CHECK FOR BUFFER ERROR 
FOLD CHECKSUM 



CHECKSUM FAILS 



REL0CATI9N LOOP 
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03104 





35 1 0312C 


75 




STA 


*T? 


03105 





61 03120 


76 


MIN 


MIN 


T2 


03106 





6700 001 


77 




LSH 


1 


03107 





41 03077 


78 


BRX2 


BRX 


L9eP3*X0 


03110 





01 03011 


79 


EXIT 


BRU 


BRT 


03111 





00 07777 


60 


ERROR 


HLT 


07777 


031 12 





01 03110 


ei 


BRUX 


BRU 


EXIT 


03113 






82 


BIAS 


RES 




03114 






e3 


CW 


RES 




03115 






84 


LOC 


RES 




03116 






85 


C8UNT 


RES 




03117 






86 


Tl 


RES 




03120 






87 


12 


RES 






00003114 


e8 


RF.L 


EQU 


CU 




00003115 


89 


cs 


EQU 


L8C 




00003000 


90 




END 


START 


03121 


77777777 










03122 


00043777 










xj 03123 


00004000 










1 03124 


00007777 










10 03125 


01700000 










03126 


00200001 











Page 4 of 20 



LISTING 



Catalog No. 012012 



04000 



ho 
i 



GO 



04000 
04001 
04002 
04003 
04004 
04005 
04006 
04007 
04010 
04011 
04012 
04013 
04014 
04015 
04016 
04017 
04020 
04021 



00000000 
00000000 
00000002 



00000000 
00000000 
00000061 
00000057 
00177775 
00177772 
00004000 
00004002 
00000052 
00000000 
00000044 
00000063 



1 
2 
3 

4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



* SYMBOL LOADER 

A0RG 04000 

S9300 EQU 

X0 EQU S9300 

X2 EQU 2-S9300 

CAB ©PD 04600004 

CBA ©PD 04600010 

CAX ©PD 04600400 

CXA ©PD 04600200 

CBX ©PD O460G020 

CNA ©PD 04601000 

SKE ©PD 05000000 

SKR ©PD 06000000 

MUL ©PD 06400000 

DIV 8PD 06500000 

ACM ©PD 06300000 

XMA ©PD 06200000 

SICT RES 1 

B8CT RES 1 

LPCT RES 1 

8NEI8 RES 1 

ANY 10 RES 1 

SIC RES 1 

PC DATA 

PLC DATA 

VCHR DATA */* 

DCHR DATA *A* 

M3 DATA 00200000-3 

M6 DATA 00200000-6 

LSICT DATA SICT 

LL8CT DATA LOCT 

CR DATA 052 

CHR DATA 

DEVICE DATA * M* , * T* , * P* , * ( 



1 FOR 900 SERIES 
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04022 


00000047 










04023 


00000023 










04024 


00000043 










04025 


62316060 


36 


FNCS 


DATA 


*SI * 


04026 


22466060 










04027 


43466060 










04030 





40 


21000 


27 


STRT 


8RTU 




04031 





01 





04030 


3d 




BRU 


STRT 


0403? 





02 





02001 


39 




RKB 


0*1,1 


04033 





76 





00160 


40 


RESET 


LDA 


Z 


04034- 





35 





04000 


41 




STA 


SICT 


04035 





35 





04001 


42 




STA 


80CT 


04036 





35 





04002 


43 




STA 


L9CT 


04037 





35 





00044 


44 




STA 


MLOC 


04040 





76 





04014 


45 




LDA 


lsict 


04041 





35 





04006 


46 




STA 


PC 


04042 





75 





00146 


47 




LDB 


P63 


04043 





32 





04017 


48 


CUM 


WIM 


CHR 


to 04044 

■ 





76 





04017 


49 




LDA 


CHP 


— 04045 
"^ 04046 





70 





04011 


50 




SKM 


DCHR 





01 





04043 


51 




BRU 


CIN 


04047 





32 





04017 


52 


NXTCHR 


VIM 


CHR 


04050 





76 





04017 


53 




LDA 


CHR 


04051 





70 





04010 


54 




SKM 


VCHR 


04052 





01 





04054 


55 




BRU 


$ + 2 


04053 





01 





04033 


56 




BRU 


RESET 


04054 





70 





04016 


57 




SKM 


CR 


04055 





01 





04057 


58 




BRU 


$ + 2 


04056 





01 





04067 


59 




BRU 


LOAD 10 


04057 





14 





00146 


60 




ETR 


P63 


04060 





46 


20005 


61 




ABC 




04061 





76 





04006 


62 




LDA 


PC 


04062 





73 





04015 


63 




SKG 


LLOCT 


04063 





36 


1 


04006 


64 




STB 


*PC 


04064 





61 





04006 


65 




MIN 


PC 


04065 





75 





00146 


66 




LDB 


P63 


04066 





01 





04047 


67 




BRU 


NXTCHR 


04067 





02 


00000 


68 


LRADIS 


DSC 





04070 





75 





00162 


69 




LDB 


Ml 



BO 



lo 



CLEAR I/O INDICATORS 



INITIALIZE POINTER 



WAIT FOR DELTA 



RESET UPON SLASH 



FINISH UPON CARRIAGE RETURN 



GET NEXT CHARACTER 
COMPUTE MEMORY SIZE 
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I 



Cn 



04071 





76 





04263 


04072 





54 





04264 


04073 





35 





00154 


04074 





35 


1 


00154 


04075 





70 


1 


00154 


04076 





01 





04072 


04077 





40 


20400 


04100 





01 





04102 


04101 





01 





04113 


041C2 





76 





04106 


04103 





40 


20200 


041C4 





35 





04106 


04105 





71 





04250 


04106 


2 


76 





04242 


04107 


2 


35 





00062 


04110 





41 





04106 


04111 





76 


1 


04106 


04112 





35 





00111 


04113 





60 





04252 


04114 





01 





04126 


04115 





71 





04251 


04116 


2 


76 





00435 


04117 


2 


35 





00233 


04120 





41 





04116 


04121 





76 





04253 


04122 





60 





04255 


04123 





76 





04262 


04124 





35 





00051 


04125 





35 





04254 


04126 





43 





00055 


04127 





76 





00153 


04130 





35 





04003 


04131 





35 





04004 


04132 





76 





07777 


04133 





35 





00050 


04134 





76 





00042 



70 LDA 

71 M2K SUB 

72 STA 
7 3 STA 

74 SKM 

75 BRU 

76 BPT 

77 BRU 

78 * BPT 

79 * BRU 

80 BRU 

81 EITHER LDA 

82 BPT 

83 * ADD 

84 STA 

85 LDX 

86 SETUP LDA 

87 STA 
86 BRX 

89 LDA 

90 STA 

91 LI03 SKR 

92 BRU 

93 LDX 

94 LDA 

95 STA 

96 BRX 

97 LDA 

98 SKR 

99 LDA 
ICO STA 
1C1 STA 
1C2 LIS BRM 
1C3 LDA 
1C4 STA 
1C5 STA 
1C6 LDA 
1C7 STA 
1C8 LDA 



BIGADR 

B12 

HIGH 

*H!GH 

*HIGH 

M2K 

1 

EITHER 

2 

EITHER 

LI83 

SETUP 

2 

P5 

SETUP 

M4,X0 

CARDS+4,X? 

READY+4,X2 

SETUP, XO 

•SETUP 

BERR8R 

NEG 

Lie 

LENGTH, XO 

END920#X2 

END920-D,X? 

$-2,X0 

NEU'END 

CQMP93 

0RG93 

BIAS 

NUBIAS 

READ 

Nl 

0NEI8 

ANYI8 

LDU1 

UD1 

CT 



18K F8R 900 SERIES 34K FOR 9300 
SUBTRACT 

SKIP WHEN 1 FINISHEl 



REMOVE ASTERISK FROM MAS TAPE L8AD 
R9M0VE ASTERISK F8R MAG TAPE L8AD 



REM8VE ASTERISK FROM MAS TAPE L8AD 



910 



TEST F8R 9300 

YES. ORIGIN 1/8 AT 3164 

NO. ORIGIN 1/8 AT 0233 

READ ONE RECORD (1ST EXTERNAL DcFS) 
RESET LOADING INDICATORS 



INITIALIZE POINTER 
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to 







04135 





35 





04006 


1C9 


STA 


PC 


04136 





71 





00050 


110 LOOK 


LDX 


UD1,X0 


04137 


2 


76 





00000 


111 


LDA 


0.X2 


04140 


2 


75 





00001 


112 


LDB 


1.X2 


04141 





6600 


022 


113 


RSH 


18 


04142 





14 





00146 


114 


ETR 


P63 


04143 





46 


00014 


lib 


XAB 




04144 





71 





04250 


116 


LDX 


M4,X0 


04145 





36 





04017 


117 


STB 


CHR 


04146 





75 





00153 


118 


LDB 


Nl 


04147 





41 





04151 


119 


BRX 


S+2.X0 


04150 





01 





04171 


120 


BRU 


NEXTL 


04151 


2 


70 





04030 


121 


SKM 


FNCS+3*X2 


04152 





01 





04147 


122 


BRU 


$-3 


04153 





76 





04017 


123 


LDA 


CHR 


04154 


2 


70 





04003 


124 


SKM 


SICT+3#X2 


04155 





01 





04163 


125 


BRU 


NOLOAD 


04156 





76 





00160 


126 


LDA 


Z 


04157 





71 





00050 


127 


LDX 


UD1,X0 


04160 


2 


35 





00000 


128 


STA 


0#X2 


04161 





61 





04003 


129 


MIN 


ONEIO 


04162 





76 





04017 


130 


LDA 


CHR 


04163 





71 





04013 


131 N0L0AD 


LDX 


M6,X0 


04164 





41 





04166 


132 


BRX 


$+2*X0 


04165 





01 





04171 


133 


BRU 


NEXTL 


04166 


2 


70 





04025 


134 


SKM 


DEVICE*5*X2 


04167 





01 





04164 


135 


BRU 


$-3 


04170 





61 





04004 


136 


MIN 


ANYIO 


04171 





76 





07642 


137 NEXTL 


LDA 


P3 


04172 





55 





00050 


138 


ADD 


UD1 


04173 





35 





00050 


139 


STA 


WD1 


04174 





76 





04006 


140 


LDA 


PC 


04175 





54 





07642 


141 


SUB 


P3 


04176 





35 





04006 


142 


STA 


PC 


04177 





73 





00160 


143 


SKG 


Z 


04200 





01 





04202 


144 


BRU 


$♦2 


04201 





01 





04136 


145 


BRU 


LOOK 


04202 





53 





04004 


146 


SKN 


ANYIO 


04203 





01 





04206 


147 


BRU 


$ + 3 



ACESS EXTERNAL DEF 



MOST SIGNIFICANT CHARACTER IN A 
2ND, 3RD CHARACTERS LEFT JUST. IN A 



EXHAUST CHECK AFTER 3 ATTEMPTS 

CHECK FOR SI, BO Oft LO. 

NO 

YES 

CHECK FOR COINCIDENCE OF 1ST CHAR 

NO 

YES 

DEF HAS SERVED ITS PURPOSE 

CLEAR 

FLAG TO LOAD 

DETERMINE UHETHER 1ST CHAR COINCIDES 
WITH ANY LEGITIMATE 1ST CHAR 



IF SO. MAKE INDICATOR POSITIVE 
ADVANCE POINTER TO NEXT EXTERNAL DEF 



CHECK FOR END OF RECORD 



YES 

NO. ACCESS NEXT DEF 

IF ANYIO STILL NEC-, RECORD NOT I/O 

STILL I/O 
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04204 





01 





042 14 


042C5 





43 





00055 


04206 





53 





04003 


04207 





^3 





00123 


04210 





76 





00002 


04211 





72 





00152 


04212 





01 





04126 


04213 





01 





04205 


04214 





76 





0^000 


04215 


Q 


70 





04021 


04216 





01 





04220 


04217 





01 





04224 


04220 





70 





04022 


04221 





01 





00053 


04222 





76 





04256 


04223 





01 





04225 


04224 





76 





04257 


04225 





35 


1 


04254 


to 04226 





61 





04254 


- 04227 





76 





07774 


^ 04230 





6600 


100 


04231 





75 





04261 


04232 





73 





00160 


04233 





75 





04260 


04234 





36 


1 


04254 


04235 





01 





00053 


04236 





40 


12006 


04237 





01 





00056 


04240 





20 





00000 


04241 





02 





03606 


04242 





01 





00121 


04243 





40 


10410 


04244 





40 


21000 


04245 





01 





00056 


04246 





02 





03610 



04247 00000005 
04250 00177774 
4 251 00177731 



48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
56 
59 

6 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 

7 9 

eo 
ei 

82 

63 
84 

8 5 
86 



READI6 



FINIO 



STE8M 



CARDS 



* 

P5 

M4 

LFNGTH 



BRC 

BRM 

SKN 

BRM 

LDA 

SKA 

BRU 

BRU 

LDA 

SKM 

BRU 

BRU 

SKM 

BRU 

LDA 

BRU 

LDA 

STA 

MIN 

LDA 

RSH 

LDB 

SKG 

LDB 

STB 

BRU 

CRT 

BRU 

NOP 

RCB 

BRU 

TRT 

3RTW 

BRU 

RT5 

BRU 

DATA 

DATA 

DATA 



FIMIt? 

KFAD 

ONEICJ 

L9AD 

CU 

P2B21 

Llfi 

READ19 

SICT 

DEVICE+1 

$ + 2 

STF9M 

DEVICE +2 

LAP+1 

RPT 

$ + 2 

RKB 

•NUBIAS 

N W P I A S 

P2 

64 

SL6U 

I 

FAST 

*NU3I AS 

LAP + 1 

0*1 

READY 

0*1 *4 

PI 

0,0 



READY 
0*0*4 
REC9V 
5 

00200000-4 
00200000-ENJ92C+PJP920 



D3 N8T LOAD IF 9NEI8 STILL NEGATIVE 
CHECK F9R END RECQPD 

N9 



CHECK F9R PAPER TAPE 
PR TYPEWRITER INPUT 



DETERMINE CYCLE. TIME 9F MACHINE 
FOR PAPER TAPE READ DELAY 



REM9VE ASTERISK F8R MAG TAPE LOAD 
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N> 



00 



0425? 

04253 

04254 

04255 

04256 

04257 

04260 

04261 

04262 

04263 

04264- 

00001 

00001 

00002 

00003 

00035 

00036 

00037 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00050 

00051 

00052 

00053 

00054 



77777777 

00 00233 

00 00366 

00 00000 

02 02004 

02 02001 

00140000 

00170000 

00 00161 

00043777 

00004000 

01 04030 



00 00366 
43 00055 
43 00123 
01 00052 



00055 00 00000 



00056 20 00000 

00057 20 00000 
00060 20 00000 



187 


NEG 


DATA 


-1 


168 


NEWEND 


HLT 


ENC920-D 


189 


NUBIAS 


HLT 


ENDPOP 


190 


C0MP93 


HLT 


S9300 


191 


RPT 


RPT 


0*1*1 


192 


RKB 


RKB 


0,1*1 


193 


FAST 


DATA 


00140000 


194 


SLOW 


DATA 


00170000 


195 


8RG93 


HLT 


Z+l 


196 


BIG ADR 


DATA 


040000*/S9300+2047 


197 


B12 


DATA 


2048 


198 




AORG 




199 




BRU 


STRT 


2C0 


cu 


RES 




201 


DU1 


RES 


26 


2C2 


TMP1 


RES 




203 


IWD 


RES 




2C4 


RCTR 


RES 




205 


CTR 


RES 




2C6 


UDCT 


RES 




2C7 


CT 


RES 




208 


L8C 


RES 




209 


MLOC 


RES 




210 


ALFA 


RES 




211 


BETA 


RES 




212 


CHAIN 


RES 




213 


UDl 


RES 




214 


BIAS 


HLT 


ENDPOP 


215 


LAP 


BRM 


READ 


216 




BRM 


LOAD 


217 




BRU 


LAP 


218 


* 




READ ONE RECORD FR 


219 


* 






220 


READ 


HLT 




221 


* 


LDX 


M10*X0 


222 


* 


STX 


WD1*X0 


223 


READY 


NOP 




224 




NOP 




225 




NOP 





1 PAPER TAPE AND VERIFY 

ENTRY 

REMOVE ASTERISK FROM MAG TAPE LOAD 

REMOVE ASTERISK FROM MAG TAP.E__LQAD 
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i 



"O 



00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
000 7 5 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 






































02 
32 

40 
01 
01 
76 



6600 
14 



54 

35 

35 

76 

35 

76 

32 

17 

60 

61 

53 

01 

32 

40 

01 

40 

01 

35 

6600 

17 



75 
70 
01 
51 



02604 

00002 

21000 

00066 

00111 

00002 
017 
00146 
07774 
00041 
00042 
07773 
0777^ 
00002 
07775 
07775 
00041 
07775 
00041 
00077 
00035 

21000 

00105 

20010 

00121 
00035 
014 
00035 
07772 
00041 
00111 
00055 



226 


RPT 


0*1*4 


227 


UIM 


cw 


228 


. -e R T u 




229 


/ BRU 


$ + 2 


230 


L— -^BRU 


BEPROR 


231 


LDA 


cw 


232 


RSH 


15 


233 


ETR 


P63 


234 


SUB 


P2 


235 


STA 


UDCT 


236 


STA 


CT 


237 


LDA 


LDU1 


238 


STA 


WDAD 


239 


LDA 


CW 


240 


READ3 UIM 


*UDAD 


241 


E0R 


*UDAD 


242 


SKR 


WDCT 


243 


MIN 


WDAD 


244 


SKN 


WDCT 


245 


BRU 


READ3 


246 


UIM 


TMPl 


247 


BRTW 




248 


BRU 


$-2 


249 


BETW 




250 


BERR0R BRU 


PI 


251 


STA 


TMPl 


252 


RSH 


12 


253 


EOR 


TMPl 


254 


LDB 


97777 


255 


SKM 


WDCT 


256 


BRU 


BERROR 


257 


BRR 


READ 


258 


♦REINSTATE F9LL0UING 


259 


*REC0V TRT 


0*0 


260 


* BRTW 




261 


* BRU 


$-2 


262 


* SPB 


o#n*4 


263 


* BRTW 




264 


* BRU 


5-1 



READ RECORD CONTROL WORQ 



STORE WORD COUNT LESS 2 



READ ONE WORD 
ACCUMULATE CHECKSUM 



EXHAUST RECORD 



CODE FOR MAb TAPE LOAD 
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265 


* 


LDX 


UD1*X0 














26 6 


* 


BRX 


KEAD+UXO 




00121 





00 





00001 


267 


PI 


HL1 


1 


*STOP*AW BUFFER 


00122 





01 





00056 


26a 




BRU 


READ+1 


REREAD 












269 


**10 


DATA 


00200000-10 


REMOVE ASTERISK 












270 


* 




PROCESS VERIFIED 


RECORDS 


00123 





no 





00000 


271 


LOAD 


HLT 




ENTRY 


00124 





76 





07773 


272 




LDA 


LDU1 




00125 





35 





00050 


273 




STA 


UD1 




00126 





76 





00002 


274 




LDA 


CU 




00127 





72 





00152 


275 




SKA 


P2B21 




00130 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 0200 24 



IDENTIFICATION: 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 



PURPOSE: 

PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 



900 Series SYMBOL Paper Tape Reader or Typewriter 
Symbolic Input Subroutine - PSI, TSI 



SDS 



January 7, 1 965 



Any SDS 900 series computer with Paper Tape Reader 
(Typewriter). 

To read one symbolic input record from the paper tape 
reader (typewriter). 



None 

0101 locations including constants 

N/A 

The subroutine is selectively loaded by the SYMBOL Loader 
under operator control. 

The subroutine has two entry points: 

INPUT tlead one BCD symbolic input record 

into the area beginning at CBFE. 



ENDSI 



End of symbolic input action subroutine, 
The computer halts to facilitate the 
reloading of paper tape. 



Buffer and unit independence is an easily modified assembly 
parameter. 

Because of the similarity of paper tape and typewriter 
input, the same subroutine is used in both cases. The 
determination of the appropriate device EOM (RPT or RKB) 



3-1 
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USE: (Cont) is made by the SYMBOL Loader and coriyeyed to the input 

subroutine together with an appropriate delay constant 
(for delay between reading symbolic input records). 

RECOVERY: Upon detection of a buffer error, the subroutine will halt 

in relative location 03 2. In order to continue, one can 
branch to relative location 025 (P-6); to reread the record, 
one must reposition the paper tape and branch to relative 
location 3 (P-030). 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 030009 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 

PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 



RECOVERY: 



900 Series SYMBOL Card Reader Symbolic Input 
Subroutine - CSI 



SDS 



January 7, 1 965 



Any SDS 900 series computer with card reader 

To read one BCD symbolic input record from the card 
reader. 



None 

20 locations including constants 

N/A 

The subroutine is selectively loaded by the SYMBOL Loader 
under operator control. 

The subroutine has two entry points: 



INPUT 



ENDSI 



Read one BCD symbolic input record 
into the area beginning at CBFE. 

End of symbolic input action subroutine. 
For card input, this is effectively a NOP, 



Buffer and unit dependence is an easily modified assembly 
parameter. 

The subroutine will halt upon either a feed error or a 
validity check error. In the former case, the offending 
card is in the hopper; in the latter it is in the stacker. 
Clearing the halt will cause the misread to be ignored and 
another card to be read. 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 040007 



IDENTIFICATION: 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 



RECOVERY: 



900 Series SYMBOL Magnetic Tape Symbolic Input 
Subroutine - MSI 

SDS 

January 7, 1965 

Any SDS 900 series computer with Magnetic Tape Unit. 

To read one BCD symbolic input record from magnetic 
tape unit 1 . 

None 

06l locations including constants 

N/A 

The subroutine is selectively loaded by the SYMBOL 
Loader under operator control. 

The subroutine has two entry points: 

INPUT Read one BCD symbolic input record 

into the area beginning at CBFE. 

ENDSI End of symbolic input action subroutine. 

The magnetic tape unit is backspaced by 
the number of input records. 

Buffer and unit dependence is an easily modified 
assembly parameter. 

Input records are required to be card images (20 words). 
A premature termination is treated as equivalent to an 
end-of-file. One end-of-file mark is allowed to separate 
input files on a tape reel, and is ignored by the assembler 
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RECOVERY: at the beginning of the first pass. An additional end-of- 

(Cont) file or one occurring after the first symbolic line but 

before the END line will cause a halt in relative location 050, 
Clearing the halt will cause a branch to location 1 which 
reinitiates the assembly process. 

In the case of tape read errors, ten recovery attempts 
are made after which a halt will occur in relative 
location 021. Clearing the halt will cause the record 
to be accepted. 



3-9 



w 











1 


* 


AM 






00000 








2 
3 


$MSI 

* 


RES 




MAGNETIC TAPE SOURCE 


INPUT ROUTINE 




00000000 


4 


S9300 


EQU 









00000000 


5 


XO 


EQU 


S9300 






00000002 


6 


X2 


EQU 


2-S9300 






00000000 


7 


CH 


EQU 









00000001 


8 


U 


EQU 


1 












9 


MMO 


OPD 


06000000 




00000 








10 


SINPUT 


RES 







00000 





00 


00000 


11 


RDTP 


PZE 







00001 





71 


00060 


12 




LDX 


=00200000~10#X0 




00002 





46 


30003 


13 




CLR 






00003 





35 


00021 


14 




STA 


EOFCNT 




00004 





37 


00026 


15 


RREAD 


STX 


RFCT,XO 




00005 





43 


00053 


16 




BRM 


DELAY 




00006 





02 


02611 


17 


EOM 


RTD 


CH,U,4 




00007 





71 


00061 


18 




LDX 


=00200000-20*X0 




00010 


2 


32 


00000 


19 


RDTP1 


UIM 


C8FE*X2 




00011 





40 


21000 


20 




BRTU 






00012 





40 


20010 


21 




BETW 






00013 





01 


00042 


22 




BRU 


REOF 




00014 





41 


00010 


23 




BRX 


RDTP1,X0 




00015 








24 


REXIT 


RES 







00015 





61 


00000 


25 




MIN 


LN 




00016 





51 


00000 


26 
27 


* 


BRR 


RDTP 




00017 





71 


00026 


28 


RTERR 


LDX 


RFCT,XO 




00020 





41 


00023 


29 




BRX 


$*3#X0 




00021 





00 


00000 


30 


E9FCNT 


HLT 







00022 





01 


00015 


31 




BRU 


REXIT 




00023 





43 


00053 


32 




BRM 


DELAY 




00024 





02 


06631 


33 




SRD 


CH,U,4 




00025 





01 


00004 


34 




BRU 


RREAD 




00026 


00000012 


35 


RFCT 


DATA 


012 




00027 








36 


TEMP 


RES 


1 




00030 





00 


00000 


37 


SENDSI 


PZE 







00031 





43 


00053 


38 




BRM 


DELAY 








o 



x*r 



00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
0004 6 
00047 
0005Q_ 
00051 
00052 
00053 
00054 
00055 
00056 
00057 















g 
o 
o 
o 
o 



0_ 











01 
02 
32 
60 
20 
53 
01 
51 
40 
01 
76 
55 
61 
73 
01 
00 
01 

po 

40 
40 
01 
51 



00035 
06631 
00000 
00015 
00000 
00035 
00033 
00030 

20010 

00017 
00021 
00037 
00021 
00051 
00005 

dob oo 

00001 
00000 

10411 ~ 

21000 

00054 

00053 



00060 
00061 
00010 
00045 



00177766 
00177754 



39 




BRU 


$ + 3 


40 


ALPH 


SRD 


CH,U,4 


41 




UIM 





42 




MM9 


LN 


43 




NOP 




44 




SKN 


LN 


45 




BRU 


ALPH 


46 




BRR 


ENDSI 


47 


RE9F 


BETW 




48 




BRU 


RTERR 


49 




LDA 


EOFCNT 


50 




ADD 


LN 


51 




MIN 


E3FCNT 


52 




SKG 


HLT 


53 




BRU 


RREAD+1 


54 


HLT 


HLT 





55 




BRU 


1 


56 


DELAY 


PZE 





57 




TRT 


CH,U 


58 




BRTW 




59 




BRU 


$-2 


60 




BRR 


DELAY 


61 


CBFE 
LN 


END 





SCIENTIFIC DATA SYSTEMS 



Page 1 of 1 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 020025 



IDENTIFICATION: 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



900 Series SYMBOL Paper Tape Punch Binary Output 
Subroutine - PBO 



SDS 



January 5, 1965 



Any SDS 900 series computer with Paper Tape Punch 

To output on the paper tape punch one binary output 
record. 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 



None 

027 locations including constants 

N/A 

The subroutine is selectively loaded by the SYMBOL 
Loader under operator control. 

The subroutine has two entry points: 

WRITR Punch the record whose origin is CW and 

whose length is specified in DWC 



WEOF 



Feed blank tape (approximately 48 frames) 



Buffer and unit dependence is an easily modified assembly 
parameter. 
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c 


40 


21000 


20 




BRTU 






00013 


c 


01 


00012 


21 




BRU 


fc-1 




00014 


c 


51 


00000 


22 




BRR 


WRITR EXIT 




► 00015 


c 


00 


00000 


23 


LCU 


PZE 


cu 




00016 


c 


00 


00000 


24 


SWEOF 


PZE 







00017 


c 


71 


00026 


25 




LDX 


=00200000-4, XO 




00020 


c 


02 


00644 


26 


PZ 


PTL 


CH,U*4 




00021 


c 


02 


14000 


27 




TOP 


CH 


o 


00022 


c 


40 


21000 


28 




BRTU 




p> 


00023 


c 


01 


00022 


29 




BRU 


*-l 




00024 


c 


41 


00020 


30 




BRX 


PZ,XO 





00025 


c 


51 


00016 


31 
32 




BRR 
END 


WE8F 


2 

o 

• 


00026 


C0177774 










o 


00006 










ICU 






tVJ 


00007 










DWC 






o 
o 


00015 










CU 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 030008 



IDENTIFICATION: 



900 Series SYMBOL Card Punch Binary Output Subroutine 
CBO 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 



PURPOSE: 

PROGRAMMED 
OPERATORS: 



SDS 



January 5, 1965 



Any SDS 900 series computer with Card Punch (Buffered or 
Unbuffered) and Binary Coupler 

To output on the card punch one binary output record. 



None 



STORAGE: 

TIMING: 
USE: 



052 locations including constants 



N/A 



The subroutine is selectively loaded by the SYMBOL Loader 
under operator control. 

The subroutine has two entry points: 



WRITR 



WEOF 



Punch the record whose origin is CW and 
whose length is specified in DWC. 

Feed two blank cards. 



Buffer and unit dependence is an easily modified assembly 
parameter. 



3-14 



iMEFASYM SI,EI,L8,EO,B0. 



CO 



Oi 











1 


* 


AXC 






00000 








2 


$CBO 


RES 









COOOOOOO 


3 


S9300 


EOU 









COOOOOOO 


4 


XO 


EQU 


S9300 






C0000002 


5 


X2 


EOU 


2-S9300 


- 




COOOOOOO 


6 


CH 


EQU 









C0000001 


7 


U 


EQU 


1 




00000 


c 


00 


00000 


8 


SURITR 


PZE 







00001 


c 


76 


00044 


9 




LDA 


= -12 




00002 


c 


40 


14046 


10 




CPT 


CH,U 




00003 


c 


01 


00002 


11 




BRU 


$-1 




00004 


c 


40 


12046 


12 




PB7 


CH,U 




00005 


c 


46 


30003 


13 




CLR 


- 




00006 


c 


35 


00032 


14 




STA 


PETEC 




00007 


c 


40 


21000 


15 


PETEL1 


BRTU 






00010 


c 


01 


00007 


16 




BRU 


$-1 




00011 


c 


02 


03646 


17 




PCS 


CH,U,4 




00012 


c 


76 


00035 


18 




LDA 


PETECU 




00013 


c 


35 


00033 


19 




STA 


PETEA 




00014 


c 


71 


00045 


20 




LDX 


=00200000-40, 


XO 


00015 


c 


75 


00034 


21 




LDB 


PETEO 




00016 


c 


76 


00000 


22 




LDA 


DUC 




00017 


c 


72 


00046 


23 


PETEL2 


SKA 


=040000000 




00020 


c 


36 


00033 


24 




STB 


PETEA 




00021 


c 


12 


1 00033 


25 




MIU 


*PETEA 




00022 


c 


61 


00033 


26 




MIN 


PETEA 




00023 


c 


54 


00047 


27 




SUB 


= 1 




00024 


c 


41 


00017 


28 




BRX 


PETEL2,X0 




00025 


c 


02 


14000 


29 




TOP 


CH 




00026 


c 


61 


00032 


30 




MIN 


PETEC 




00027 


c 


53 


00032 


31 




SKN 


PETEC 




00030 


c 


51 


00000 


32 




BRR 


URITR 




00031 


c 


01 


00007 


33 
34 


* 


BRU 


PETEL1 




00032 








35 


PETEC 


RES 


1 




00033 








36 


PETEA 


RES 


1 




00034 


c 


00 


00050 


37 


PETEO 


PZE 


= 





ENTRY 

LOAD REPEAT COUNT 



BUFFERED* SET REPEAT COUNT TO 

SAVE REPEAT COUNT 

WAIT FOR BUFFER TO BE READY 



INIALIZE BUFFER ADDRESS 



A = RECORD SIZE - 1 

IS A NEGATIVE 

YES, SET ADDRESS = ADDRESS OF 

OUTPUT WORD 

INCREMENT ADDRESS 

DECREMENT COUNT 



INCREMENT REPEAT COUNT 

IS ALL TRANSMISION COMPLETE 

YES, EXIT 

NO, LOOP AGAIN 

SAVE LOCATION FOR REPEAT COUNT 
SAVE LOCATION FOR ADDRESS 
ADDRESS OF A ZERO CONSTANT 



00035 
00036 
00037 
00040 
00041 
00042 
00043 

00044 
00045 
00046 
00047 
00050 
00051 
00040 
00035 



C 00 00000 

C 00 00000 

C 76 00051 

C 35 00016 

C 43 00000 

C 43 00000 

C 51 00036 

777/7764 
C0177730 
40000000 
C0000001 
COOOOOOO 
77777777 



3a 


PtTECU 


PZE 


39 


SWE8F 


PZE 


40 




LDA 


41 




ST A 


42 




BRM 


43 




BRM 


44 




BRR 


45 




END 



cu 



3-1 

DUC 

WRITR 

WRITK 

WE6F 



OQ 

o 



DWC 
CW 



CO 

o 



H 
i— i 

O 



o 

p 

P 

»— * 

o 

TO 

o 



O 
U) 
O 
O 
O 
00 



SCIENTIFIC DATA SYSTEMS 



Page 1 of 1 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 020023 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 

PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 
USE: 



900 Series SYMBOL Typewriter Listing Subroutine - TLO 

SDS 

January 5, 1965 

Any SDS 900 series computer with typewriter 

To output on the typewriter one line of the SYMBOL 
output listing 



None 



0154 locations including constants 



N/'A 



The subroutine is selectively loaded by the SYMBOL 
Loader under operator control. 

The subroutine has two entry points: 

PRNT Type the line whose origin is LBUF and 

whose length is specified in EDCT. If the 
line exceeds 80 characters, the subroutine 
types the remainder on the succeeding line, 
preceded by a carriage return and tab. 

HOME Skip to top of page. This subroutine is 

entered by PRNT when the line count exceeds 
50 and by the assembler upon encountering a 
PAGE directive. 

Buffer and unit dependence is an easily modified assembly 
parameter. 



3-17 



AMETASYM SI 


• El 


*L6 


,EO*ae. 


00000 












cooooooo 




cooooooo 




C0000002 




COOOOOOO 




C0000001 


00000 


c 


00 





00000 


00001 


c 


76 





00136 


00002 


c 


75 





00137 


* 00003 


c 


60 





00000 


* 00004 


c 


71 





00003 


* 00005 


c 


53 





00004 


* 00006 


f 

<- 


70 





00000 


00007 


c 


01 





00011 


V 3 00010 


c 


01 





00003 


oo 00011 


c 


43 





00107 


00012 


c 


76 





00137 


* 00013 


c 


54 





00005 


* 00014 


c 


35 





00013 


00015 


c 


73 





00140 


00016 


c 


76 





00140 


00017 


c 


35 





00133 


00020 


c 


76 





00134 


00021 


c 


43 





00050 


* 00022 


c 


76 





00014 


00023 


c 


35 





00133 


* 00024 


c 


53 





00022 


00025 


c 


01 





00035 


00026 


c 


61 





00131 


00027 


c 


76 





00141 


00030 


c 


43 





00077 


00031 


c 


76 





00142 


00032 


c 


43 





00077 


00033 


c 


76 





00135 



1 * 


AXXT 






2 $1L8 


RES 







3 S9300 


EGIU 







4 XO 


EQU 


S9300 




5 X2 


EQU 


2-S9300 




6 CH 


EQU 







7 U 


EQU 


1 




8 MM© 


OPD 


06000000 




9 $PRNT 


PZE 







10 


LDA 


=060606060 




11 


LDB 


= -1 




12 TYP 


MM8 


EBCT 




13 


LDX 


LDCT,X0 




14 


SKN 


EDCT 




15 


SKM 


LBUF*X2 




16 


BRU 


IYPL1 




17 


bRU 


TYP 




18 TYPL1 


BRM 


LNCT 


INCREMENT AND TEST LIN 


19 


LDA 


= -1 




20 


SUB 


EDCT 




21 


STA 


EDCT 




22 


SKG 


= -20 




23 


LDA 


= -20 




24 


STA 


TTMP 




25 


LDA 


LLBUF 




26 


BRM 


TYPE 




27 


LDA 


EDCT 




28 


STA 


TTMP 




29 


SKN 


EDCT 




30 


BRU 


PRN2 




31 * TYPE 


LAST 


N-75 CHARACTERS ON NEXT LINE 


32 TYP2 


MIN 


CTR 


INCREMENT LINE COUNTER 


33 


LDA 


=052000000 




34 


BRM 


TYCC 


TYPE CARRIAGE REIURN 


35 


LDA 


=072000000 




36 


BRM 


IYCC 


TYPE TAB 


37 


LDA 


LTBFE 





COUNT 



~Y 



o 



00034 


C 


43 





00050 


38 




BRM 


FYPE 


00035 


C 


71 





00143 


39 


PRN2 


LDX 


=00200000-8, XQ 


00036 


C 


76 





00136 


40 




LDA 


-* » 


00037 


2 


35 





00000 


41 




STA 


CBUF*X2 


00040 


C 


41 





00037 


42 




BRX 


$-l,XO 


00041 


C 


77 





00006 


43 




EAX 


LBUF#XO 


00042 


c 


37 





00000 


44 




STX 


EDW,X0 


00043 


c 


76 





00144 


45 




LDA 


= 8 


00044 


c 


35 





00024 


46 




STA 


EDCT 


00045 


c 


76 





00141 


47 




LDA 


=052000000 


00046 


c 


43 





00077 


48 




BRM 


TYCC 


00047 


c 


51 





00000 


49 
50 


* 


BRR 


PRNT 












51 


* TYPE 


N CHARACTERS 


00050 


c 


00 





00000 


52 


TYPE 


PZE 




00051 


c 


35 





00042 


53 




STA 


EDU 


00052 


c 


76 


1 


00051 


54 


TMIW 


LDA 


*EDW 


00053 


c 


75 





00145 


55 




LDB 


=077 


00054 


c 


54 





00146 


56 


TMIW1 


SUB 


= 060 


00055 


c 


72 





00145 


57 




SKA 


= 077 


00056 


c 


55 





00147 


58 




ADD 


= 046 


00057 


c 


55 





00150 


59 




ADD 


= 012 


00060 


c 


6620 


006 


60 




RCY 


6 


00061 


c 


72 





00151 


61 




SKA 


=077777700 


00062 


c 


01 





00054 


62 




BRU 


TMIW1 


00063 


c 


36 





00132 


63 




STB 


IMP 


00064 


c 


02 





02641 


64 




TYP 


CH,U,4 > : 


00065 


c 


12 





00132 


65 




MIW 


TMP 


00066 


c 


02 


14000 


66 




TOP 


CH 


00067 


c 


40 


21000 


67 


T6RT 


BRTU 




00070 


c 


01 





00067 


68 




BRU 


fBRT 


00071 


c 


61 





00052 


69 




MINI 


EDU 


00072 


c 


61 





00044 


70 




MIN 


EDCT 


00073 


c 


61 





00133 


71 




MIN 


IT MP 


00074 


c 


53 





00133 


72 




SKN 


TTMP 


00075 


c 


51 





00050 


73 




BRR 


1 YPE 


00076 


c 


01 





00052 


74 

75 


* TYPE 


BRU 
CONTROL 


IMIU 
CHARAC IER 


00077 


c 


00 





00000 


76 


TYCO 


PZE 





1YPE LAST N-75 CHARS OF LINE 



ENTRY 

ADDRESS OF 1ST CHAR TO TYPE 



STORE DATUM 



ENTRY 





00100 


C 


35 





00132 




00101 


C 


02 





02041 




00102 


C 


12 





00132 




00103 


C 


02 


14000 




00104 


C 


40 


21000 




00105 


C 


01 





00104 




00106 


c 


51 





00077 




00107 


c 


00 





00000 




00110 


c 


61 





00131 




00111 


c 


76 





00131 




00112 


c 


76 





00152 




00113 


c 


51 





00107 




00114 


c 


43 





00116 




00115 


c 


51 





00107 




0011b 












00116 


c 


00 





00000 


CO 

1 


00117 


c 


76 





00131 


ho 

O 


C0120 


c 


55 





00153 




00121 


c 


3d 





00131 




00122 


c 


71 





00131 




00123 


c 


76 





00141 




00124 


c 


43 





00077 




00125 


c 


41 





00123 




00126 


c 


4b 


30003 




00127 


c 


35 





00131 




00130 


c 


51 





00116 




00131 


cooooooo 




00132 


c 


00 





00000 




00133 


c 


00 





00000 


* 


00134 


c 


00 





00041 


* 


00135 


c 


00 





00000 




00136 


eQ606060 




00137 


7/777777 




00140 


77777754 




00141 


E ' 


2000000 



77 
78 
79 

60 
81 

82 

33 

84 

85 

66 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

106 

109 

110 

111 



TYC1 



TYSS 



* LINE 
LNCT 



SHOME 
THOME 



NPG 



* 

C1R 

TMP 

TIMP 

LLBUF 

LrBFE 



STA 

I YP 

M1W 

TOP 

BRTU 

BRU 

BRR 

COUNT 

PZE 

MIN 

LDA 

SKG 

bRR 

BRM 

BRR 

RES 

PZE 

LDA 

ADD 

STA 

LDX 

LDA 

BRM 

BRX 

CLR 

STA 

BRR 

DATA 

PZE 

PZE 

PZE 

PZE 

END 



IMP 

CH#U* 1 
IMP 
CH 

TYSS 
FYCC 



tXlT 



HOME 
EXIT 



AND PAGE EJECT SUBROUTINE 



CTR 

CTR 

= 5C 

LNCT 

THOME 

LNCT 





CTR 

=00200000-66 

CTR 

CTR,X0 

=052000000 

TYCC 

NPG*XO 



PAGE 



LINES TYPED 



CTR 
THOME 





LBUF 
X'lBFE 



CO 

to 



00142 


7200000U 


00143 


C0177770 


00144 


C0000010 


00145 


C0000077 


00146 


C0000060 


00147 


C0000046 


00150 


C0000012 


00151 


77777700 


00152 


C0000062 


00153 


C017767b 


00072 




00134 




00037 




00071 




00135 





►d 

OQ 
O 

O 



EDCT 

LbUF 

CBUF 

EDW 

TBFE 



CO 

a 



o 

rt- 

P> 
I— ' 
O 

OQ 
O 



o 

M 
O 
O 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Page 1 of 1 



Catalog No. 062002 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 



900 Series SYMBOL Line Printer Listing Subroutine - LLO 
SDS 
January 4, 1965 

Any SDS 900 series computer with Buffered Line Printer 

To output on the printer one line of the SYMBOL output 
listing. 



None 



06l locations including constants 



N/A 



The subroutine is selectively loaded by the SYMBOL Loader 
under operator control. 

The subroutine has two entry points: 



PRNT 



HOME 



Skip to channel 0. Then print the line whose 
. origin is LBUF and whose length is specified 
in EDCT. 

Skip to channel 1. 



In the event of a printer fault, the subroutine will halt in 
relative location 02 3. 



3-22 






00000 



00000 

oooai 

00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 



C0000000 

cooooooo 

C0000002 



00 
40 
01 
02 
43 



00000 
12060 
00001 
10460 
00021 



40 20010 
01 00020 



71 
76 
35 
41 
77 
37 
76 
35 



00055 
00056 
00000 
00011 
00000 
00000 
00057 
00000 



51 00000 



00020 C 00 00000 



00021 C 00 00000 

00022 C 40 11060 



1 


* 


AXXL 




2 


$LL0 


RES 





3 


S9300 


EQU 





4 


XO 


EQU 


S9300 


5 


X2 


EQU 


2-S9300 


6 


SPRNT 


PZE 





7 


PRN1 


SKS 


012060 


e 




BRU 


PRN1 


9 




EOM 


01C460 


10 


PRST 


BRM 


LINEP 


11 




BETU 




12 




BRU 


PERRP 


13 


PRN2 


LDX 


«0020QO0CL-8#XO 


14 




LDA 


=060606060 


15 


SBLK 


STA 


CBUF,X2 


16 




BRX 


SBLK#XO 


17 




EAX 


LBUF,XO 


18 




STX 


EDW,XO 


19 




LDA 


«8 


20 




STA 


EDCT 


21 




BRR 


PRNT 


22 


* 






23 


* 






24 


PERRP 


HLT 




25 


* REPLACE PREVIOUS LINE WITH 


26 


* 




PRINT ONE VARI 


27 


LINEP 


PZE 




28 




SKS 


011060 



SKIP IF. 8UFFEREU PR1RTER -HEABX 

STEP ONE LINE BEFORE PRINTING 
PRINT VARIABLE LENGTH LINE 



STORE BLANKS IN 1ST 32 POSNS 



*EXIT* 



RESTART PROCEDURE 
ABLE LENGTH LINE 

ENTRY 

SKIP IF NO PRINTER 



FAULT 





00023 


c 


00 





00000 


* 


00024 


c 


76 





00016 




00025 


c 


55 





00042 




00026 


c 


35 





00043 




00027 


c 


76 





00060 


* 


00030 


c 


54 





00024 


* 


00031 


c 


35 





00030 


* 


00032 


c 


71 





00031 




00033 


c 


02 





02660 




00034 


c 


12 


1 


00043 




00035 


c 


41 





00034 




00036 


c 


02 


14000 




00037 


c 


40 


21000 




00040 


c 


01 





00037 




00041 


c 


51 





00021 


* 


00042 


2 


00 





00013 


* 1 


00043 




00 





00042 


K3 

■1^ 














00044 


c 


00 





00000 




00045 


c 


40 





12060 




00046 


c 


01 





00045 




00047 


c 


02 





11460 




00050 


c 


02 





02660 




00051 


c 


02 





14000 




00052 


c 


40 


21000 




00053 


c 


01 





00052 




00054 


c 


51 





00044 




00055 


C0177770 




00056 


€0606060 




00057 


COOOOOIO 




00060 


C0200000 




00011 












00043 












00014 












00032 











29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
46 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



DPTWI 
DPTW 

* 
* 
SHOME 



HIT 

LDA 

ADD 

STA 

LDA 

SUB 

STA 

LDX 

EOM 

MIW 

BRX 

TOP 

BRTW 

BRU 

BRR 

PZE 
PZE 



PZE 

SKS 

BRU 

EOM 

EOM 

EOM 

BRTU 

BRU 

BRR 

END 



EDCT 

DPTU1 

DPTW 

=00200000 

EDCT 

EDCT 

ED-CT.XO 

02660 

*DPTW 

S-l.XO 



S-l 
LINEP 

LBUF,X2 
LBUF,X2 

HOME PAPER SUBROUTINE 



012060 

$-1 

011460 

02660 

014000 



**HALT-PRINTER FAULT** 
NUMBER OF WORDS TO PRINT 
PLUS ORIGIN OF PRINT BUFFER 
INDEXED INDIRECT ADDRESS WORD 



SKIP IF BUFFERED PRINTER READY 

RESTORE PAGE OR 'HOME* PAPER 
START BUFFERED PRINTER NR 1 



$-1 

HOME 



EXIT 



CBUF 
LBUF 
EDW 

EDCT 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 012005 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 

PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 



900 Series SYMBOL Part I 



SDS 



January 12, 1965 



Any SDS 900 series computer with at least a 4K memory. 
To provide main SYMBOL control. 



CAB, CBA, CAX, CXA, CBX, CNE, SKE, SKR, MUL, 
DIV, ADM, XMA 

01462 locations including constants 



N/A 



SYMBOL consists of three parts (separately assembled 
programs) plus a mnemonic table plus I/O subroutines. 

Part I is the main control portion of SYMBOL and is 
entered by the execution of a branch to location 1. After 
initialization, a halt occurs in relative location 234. 
This halt, which precedes pass 1, allows input to be 
readied in the appropriate peripheral unit. When batched 
assemblies are desired (as when files are sequentially 
located on magnetic tape) the halt may be replaced by a 
NOP. 

Following the second pass of the assembly, SYMBOL 
reinitializes in preparation for another assembly. 

In addition to its executive functions, Part I performs the 
processing for ail directives. These include EQU, OPD, 
FORM, PAGE, AORG, RORG, RES, DATA, DED, BCD, 
TEXT and END. 
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Page 2 of 2 Catalog No. 012005 

USE: (Cont) Subroutines: 

DLBL Define label 

BRM DLBL 

return 

If LBL1 contains zero, these subroutines will 
do nothing. Otherwise the contents of LBL1 
and the first two characters of LBLI + y are 
considered a label, and this label will be 
equated to the current value of the location 
counter and inserted in the symbol table. 
The item will be relocatable if the location 
counter was relocatable. 

LXL Process external labels 

BRM LXL with item at LBL1 

return 

If item at LBL1 is found in the symbol table, 
this table item is made external. 

ILOC Increment location counter 

BRM ILOC with base to be incremented 
in A 

return with new location counter value in 
A and LOCI 

Computes maximum location counter value, 
then increments location counter. Uses 
MAXL and SCAN subroutines. 
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900 SERIES SYMBOL PART 




DGNB, 




' *-(LN) 



MT- 



(X2), (CNTR) 



RST2 



C 



B18(1,X2):0 



J ► (0,X2)— <(CI 

' (CNTR) + 1 — »- 



(CNTR) 
(1,X2)- 



((CNTR)) 

(CNTR) 
<(CNTR)) 
-■►(CNTR) 



(CNTR) + 1- 

(2, X2) ^{(CNTR)) 

(CNTR) + 1— *- (CNTR) 



<_ 



(CNTR) : (FINL) \ 

T 



RSTl 



(X2) + 3- 



"(X2) 



BGN3 



(a) *-(ENDP,X2) 

(X2) + l »-(X2) 



I 



Q (X2):0 y^- 



(HIGH)-2 ^(TPS),(TPS + 1) 

077770000 — MTPS + 3), (TPS + 5) 
(FRST)-3 — »KTPM) 
077770000 — »- (TPM + 3) 
(FINL) - (FRST) »~(a), (CNTR) 



[-2 m 



(TPM + 2) 



(CNTR) - (TPM + 2) — •►(a), (TPM + 4) 

(a) + (FRST) HTPM + 1 ) 

— *~(PASS), (CTYP) 

(LSXT) —(SCNX) 

(LSCX) —(SCIX) 

(LSOT) — ^(LOP) 

(LSIT) ^(LITM) 

(FINL) - (HIGH) - (LIMT) 



BGN2 



-24- 



-(X2) 



-(a) 



BGN4 



*-(MLOC), (ALN) 

0100000 — »-(LOC) 



*l LINE J 
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900 SERIES SYMBOL PART I (cont.) 





"-(PMOD), (WMOD), (XFLG), 

(IFLG),(LBL1),(STYP),(LERR) 

-1 *~(OCTF) 

-23 — »-(SCALE) 
(LL)— (EDCT) 


| READ | 




1 


r 






\* 



LIN 10 



f (PASS):0 y^—+ | PRNT 1 



LIN6 + 



UNI 



FLD 



< 




MchrJTTY 



# Set L 



C (LERR):0 J^—+ 0—*- 



LIN4 




(LBL1) 



H (a): 



y-< 



(a): 



C (a): A J * | LXL | P( LIN10J 

LPl^ir 



LIN5 



| SYM | 



c 



$J ^(PASS):0^ 



UN49 



(XFLG) + 1 — »-(XFLG) 



GET 



(CHR) 



LIN 11 



Q (CHR):* y 



(IFLG)-l »-(IFLG) 



Set L error 



No 



<E 



DM 



Set L error 



LXL 



(CHR) legal symbol char 



(IFLG)+1 
»-(IFLG) 



EgjO 



LIN 9 



I SYM I 



((CHR): A y~» (CHR)— MSM1) 



3 



Yes 



c 



I 



(CHR):, 

— x — 



(a)— — (LBL1) 
(b)v(XFLG)-»-(LBLl+l) 




LIN99 



Yes 



H At least 1 alphabetic J — S -^ Set L 



(LSYM) »-(a) 

(LMT)— —(b) 



( CEElJ V — y°y 



C 



(MODE) A 020: ( 



I 




y » FORCED — »- 



OCTF 



(a) »-(WORD) 

(b) — »-(MODE) 



FLD 



C (mode) a oio:0 y 

f (MODE)Al:0 V 



f (MODE) A 4:0 J^- ►ArU*WORDJ 



LIN7 



r^n — *£ 



( (MODE) a 02000:0 J 2 



(MODE) A 2 



To J >C (PASS): 0^ 



+MNR3 j 
_*/fREF ) 
-#f POPR J 
-W LIN2 J 
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900 SERIES SYMBOL PART I (cont.) 




SCNL 



INR1A 



Reset overflow 

(NAB) — (X2) 

(a) A (ADDR) V (WORD) — w~ (a) 



INR9 



I 



c 


(a) : address size ) > ► 


Set T error 




1 












' 






(b)— — (WMOD) 






1 


* 


INR92 


> 





(EOMor EQp) YeS »^IFLG set J^* 



No 
INR21 



No 



(a)V040000— — (a) 



Ng?l t 
flFLGsetV^H 



No 



INR94 



(a) V (INDB) »-(a) 



(a) — *-(WORD) 
-1 — — (OCTF) 

I 

f (TERM):,^V- 



■« LIN3 J 



SCAN 



(a) A (XMSK) — m.(g) 
(ja)s(VALU)y ► 



Set T error 



(a)x2 21 -(a) 



INR2 



(a) V (WORD) — —(WORD) 



LIN3 



(INST) — — (WRD2) 



LIN§Jt 



(^(TERM):A^— y 



Set E error 



A-*- (TERM) 

UpjiJ 



LIN2 



(LOC) + l — — (LOC) 




LINE 



c 




(MODE) A 04000 : J 



»( INR31 J 



I SCAN 1 
0— — <b) 



C 



(a) A 4:0 



(EOD)— — (b) 



(a)A3— (X2) 
(b)— (a) 
0— —(b) 

(a)V(CT,X2)— —(a) 
(a) — »-(WORD) 



Handle SK5 



UKM)T\ 



-*( LIN3 J 



(_(IFLG);0 J 



(WORD) V 040000 
— —(WORD) 



INR31 



SCAN 



(a)A3— (a) 

I 



f (a) : (VALUW-^ * Set T 



(a) + (WORD) — —(WORD) 

I 



((TERM):/) 



-W LIN3 J 



SCAN 



C (a):0 > 



(a)-l— (a) 



((a)A3)x2' — (a) 
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900 SERIES SYMBOL PART I (cont.) 




(fl.BL1);Q J 



(LOC) «— (LBL1 +2) 



c 



EXIT, 




(LOC) A 0100000 



Z> 



(LLBL)— —(a) 
(L5T) —(b) 



NSRT 




(a) —(WORD) 

(LBLl+l)V(b)A-2 
— — (LBL1+1) 

(b) — -(LBL1+2) 

(LL£L) — (a) 

(LST) —(b) 



(LBL1+1)V2 
»-(LBLl+l) 



EQU1 



NSRT 



EQU2v 



f (PASS) : \ 




(LLBL)- 
(LST)- 



-(a) 
-(b) 



( ( SRCH J ) 



(1,X2)V(XFLG) 
— 0,X2) 



EXIT. 





\< fc 




| EDTV | 


/ * 








.EXIT, 
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900 SERIES SYMBOL PART I (cont.) 




FORCED — »~(OCTF) 



SCAN 



(a)— »-(WORD) 
(a)— »-(LBLl+2) 
(LBL1+1) V 2 5 
MLBL1+1) 




0— —(a) 




FRM3 



(a)— »-(WRD2) 



SCAN 



(a) -—(X2) 
(WRD2) — *-(b) 
040000000 — »-(a 
,(X2) 



(ab) x 2 V 



(ab) 



f(a)A-l:(A 



C 



(b) A 040000000:0 



(TERM) — »»( a ) 



GED 



FRM1 



Set T error 



FRM2 



(b) V 040000000 
— ^(LBLl+2) 

(LBL1 + 1) V 04001 
— »~(LBL1 + 1) 

(LLBL)— ^(a) 

(LMT) — * -(b) 
NSRT 



(LBL1+1)— *-(l,X2) 
(LBL1+2)— »~(2,X2) 






AORG 



ORG! j 




FRM1 1 ( BSS 




FRM2 



0-*-(a) 



ILOC 



(a)-— (LOC) 



DLBL 



(LOC)— —(a) 



ILOC 



BSSJ 

i ►T(PASS):0^— #> | EDTL | 



-W FRM3 J 



(LOCI)— ^(LOC) 



((PASS)7oJ-^ » | EDE | 




FRM4 



LINE H" 




PRNT 
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900 SERIES SYMBOL PART I (cont.) 




DATA 



SCAN 



f(PASS) : o\ 



(a) — »-(WORD) 

(b) — *~(WMOD) 
040000000 — »-(WRD2) 



EDIT 



AtERM):, y- — U LINE J 



© 



DATA1 



(LOC) + l — *-(LOC) 



■47 — »► (SCALE) 



DPW 



execute DPWR 
(b) — *~(WORD) 
(a) — *~(VALU) 



Q(PASS):0jr 



040000000 — «~(WRD2) 



EDIT 



DED1 



(LOC) + l — *-(LOC) 



(VALU) — *-(WORD) 
040000000 — »-(WRD2) 



^C 



EDIT 



(PASS) 



DED2 



D 



(LOC) + l — ^(LOC) 



( DED k f (TERM) : , ") 
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900 SERIES SYMBOL PART I (cont.) 




-(BCIF) 



((CHR):<^ 
TEXT7_jL 



DECW 



TEXT! 



(a)-l-*-(a) 
0100 — ^(TERM) 



( (q):55 ^- 



55 — »>(a) 
Set T error 



TEXT4 



>— ^(TERM) 
55 — w(a) 



TEXT6 



(a) — *~(CNTB) 

UM3 ■ 



C 



040000000 — »-(WRD2) |* — *-f (X2):0 J ► 



(X2) + l— *-(X2) 



*-2(\ 



■U TEXT6 J 



SSS? ^*^~> 



| DECW 1 



AAAA »-(WORD) 

-4— (X2) 



TEXT3 



(CHR)—— (a) 



Q (a): A ^ 



© 



14— *-(a) 



T EXT2 .-— *^ 

»^(CNTB):0 )_f */\lNE J 



(BCIF)^fc-(a) 



Qa): (TERM A 



(CNTB) 



o\ (a) -A— — 

J Execute TEX 



(PASS):0 



EDIT 



TEXT8 \ 


' 


(a) -A— — ( 
Execute TEXT 
(a) + (WORD)- 

(X2) — »-{a 


=>) 

5,X2 

—•-(WORD) 

^TR) 


IGET I 




(CNTR) — »- 
(CNTB)-l 


(X2) 
•►(CNTB) 



-(a)— »~(CNTB) 




(LOC) + l — ^(LOC) 



J TEXT2 J 



TEXT4 



TEXT5-4 


(a)x 


2 18 — » 


-(a) 


TEXT5-3 


(a)x 


2 I2 _* 


-(a) 


TEXT5-2 


(a)x 


2 6 -^ 


(a) 


TEXT5-1 


(a)x 


2 U — - 


(a) 
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900 SERIES SYMBOL PART I (cont.) 



f END V 




-(PASS) 



E ND! At S — N. 

QpASS):0)^~»(eND2 J 



\ ENDSI 



-1 — *-(PASS) 

(loo— *-(locp),(ladd; 

(ERRQ— *-(X2) 



END3 



(a) — *-(VERR, X2) 
(X2) + l — »-(X2) 



"< 




(X2) : 



— »~(VERR),(DWC) 
(DEFT) — *^(STYP) 

1 — *-(CTYP) 
(TPS) -^(X2) 




END1 



3 



\ 

(X2) + 3:(HIGH) I 



I 



(X2) + 3 



■(X2) 



(CNTR)- 



-(X2) 



I 



(1,X2)A -2— ^(1,X2) t ( x:i/,<DCTf.tt V ' 

(X2)— ^(WORD), (CNTR) * ^ (1 , X2) A (EXTM) . J 

| OUTP | 



(2, X2) V (LTR1 ) x 2 1 — m- (2, X2) 
(LTR1 ) + 1 — »KLTR1) 



OUTP 



ENDP1 



(CNTR) + 3- 



(X2),(a) 



f (a): (FINL) Y ME N DP2 J 



— »-(CTYP) 
(TPS) — *-(TPR), (TPR+1 ) 
077770000 — *-(TPR+3), (TPR+5) 
(TPM) + (TPM+2) + (TPM+ 4) 

»~(TPL), (TPL+1 ) 

-1 — ^(TPL+3) 
AAAA — *-(a) 
-8 — ^(X2) 




END8 



(a) -*-(CBUF, X2) 
(X2) + l — *-(X2) 



4-10 



900 SERIES SYMBOL PART I (conr.) 




1— »-(EFLG) 



C 



(CHR) 



END4 



^> 



I PRNT I 



MAXL 



(REFT) — »► (STYP) 
1 — ^(CTYP) 
(LRT) — MX2) 
(0,X2)+3— »-(a) 
(a)-^(LTRl) 
(a) + (2,X2)+(4,X2) 
*► (LTR2) 



END12 



C 



(LTR1): (LTR1) 



END15 



■(CTYP) 



C 



(EFLG) 



D 2 - 



I scan! 



(a)— »-(WORD) 
040000000 — *► (WRD2) 



I EDTVl 

— (EFLG) 



END5 



I 



(TPL)— — (X2) 
(LOCP)-^(a) 
(a)— »~(LOC),(LTRl) 



END6 




( LTR 1 ) — *-(WORD) 
((LTR1))-— (EREF1) 
(LTR1) + 1— *~(LTR1) 
(( LTR 1))A 077770000 
V'fc-b , -»-(EREF2) 
(LTR1) + 1 — »~(LTR1) 
((LTR1))— —(LOC) 
(LTR1) + 1— *-(LTRl) 

lEDTLl 

IoutpI 



(valu)— »-(word) 
(mode)— *-(wmod) 

IoutpI 




(X2) + 3 
(2,X2)- 



-(X2) 
(a) 



PLT2 



^(a)=(LTR1)^ 



PLT1 



(a)-(LOCP)-*-(a) 
3x(a)+3+(TPL) 

»-(LTR3) 

(0,X2)-»*-((LTR3)) 
(LTR3) + 1— ^(LTR3) 
(1,X2W*-((LTR3)) 
(LTR3) + 1 — *~(LTR3) 
(2,X2H**~((LTR3) 




(0,X2)-*-(WORD) 
(1,X2)— »-(WMOD) 
040000000 —»~(WRD2) 
(X2)— »~(LTR2) 

1 EDIT | 

(LTR2)— »~(X2) 
(LTR1) + 1— *-(LTRl) 
(LOC) + l— »-(LOC) 
(LTRl)-^(a) 



J PLT2 J 
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900 SERIES SYMBOL PART I (cont.) 




24— -»-(CNTl) 
-5 — »-(CNT3) 
(WORD)— *-(WRDl), 
(WRD2) 
— •►(WORD) 
040000000 — »-(b) 



F R4 t 



FR5 



(WRD1) — »~(WRD2) 



MCNT3): 0^ 



040000000 — »~(WRD2) ► 




Set T error 



(CNT3) + 1 — *~(CNT3) 
(a)— — (CNT2) 



^(o):(AB) y 



((a):(CNTl)^ 



| SCNL | 
(b) — *-(WMOD) 



<j. 



) = -1 and (b) < 



-v j. •" 



Yes 



0U-Z-((ah0Y 



0— —(a) 

(ab)x2 (CNT1) v(WORD) 

»~(WORD) 

(CNT1) - (CNT2)— — (CNT1) 



FR2 



SCAN 



a 



Relocatable 



No 

— ► 



FR3 



7y*+ 



Set R 



(ab) x 2" (X2) — *-(a) 



►('(TERM):, y J FR4 J 
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1 


• 


SI 






OQ 




2 


* 








t-» 




3 


CAB 


8PD 


016400000 









A 


CBA 


8PD 


016500000 




M» 




5 


CAX 


8PD 


016600000 




en 




6 


CXA 


8PD 


016700000 








7 


CBX 


8PD 


017000000 








8 


CNA 


8PD 


017100000 








9 


SKE 


8PD 


017200000 








10 


SKR 


8PB 


017300000 








11 


MUL 


8PD 


017400000 








12 


DIV 


ePD 


017500000 








13 


ADM 


8PD 


017600000 








14 


XMA 


8PD 


017700000 






00000000 


15 


S9300 


EOU 









00000000 


16 


xo 


EOU 


S9300 




hj 


00000002 


17 


X2 


EQU 


2-S9300 




in 


f 00000001 


Id 


IN 


EQU 


1 




H 


- 00000002 


19 


OUT 


EQU 


2 




2 


00001 


20 




A8RG 


1 







00001 01 00127 


21 




BRU 


BGN 


RESTART 


00042 


22 




A8RG 


34 






00042 


23 


SXT 


RES 


4 






00046 


24 


SCXT 


RES 


4 






00052 


25 


$S9T 


RES 


16 






00072 


26 
27 


SIT 
TPM 


RES 
RES 


16 






00112 


6 






00120 


28 


TPS 


RES 


6 






00126 


29 


TPR 


RES 


6 


■>. 


o 

ft) 


00134 


30 


$TPL 


RES 


6 







00142 


31 


ENDP 


RES 







00142 


32 


$L9C 


RES 






00143 


33 


$PM8D 


RES 






2 


00144 


34 


SWM8D 


RES 









00145 


35 


SU8RD 


RES 






o 


00146 


36 


SURD2 


RES 








00147 


37 


$ W R D 1 


RES 






O 


00150 


38 


STERM 


RES 






m 






00151 


39 


SCTYP 


RES 1 


*6 


00152 


40 


SSTYP 


RES 1 


OQ 


00153 


41 


SPASS 


RES 1 


N 


00154 


42 


HIGH 


RES 1 


O 


00155 


43 


SLIMT 


RES 1 




00156 


44 


LOCI 


RES 1 


00157 


45 


L6CP 


RES 1 




00000 


46 




8RG 




00000 


Al 


SLADD 


RES 1 




00001 


48 


S6CTF 


RES 1 




00002 


49 


XFLG 


RES 1 




00003 


50 


$IFLG 


RES 1 




00004 


51 


EFLG 


RES 1 




00005 


52 


SLTR1 


RES 1 




00006 


53 


$LTR2 


RES 1 




00007 


54 


SLTR3 


RES 1 




00010 


55 


SM9DE 


RES 1 


F 


00011 


56 


SVALU 


RES 1 


Ifl 


00012 


57 


$XERR 


RES 1 




00013 


58 


$PERR 


RES 1 





00014 


59 


SDERR 


RES 1 


00015 


SEERR 


RES 1 




00016 


61 


IERR 


RES 1 




00017 


- 62 


LERR 


RES 1 




00020 


63 


$PERR 


RES 1 




00021 


64 


$F?ERR 


RES 1 




00022 


65 
66 


STERR 
"SUERR" 


RES 1 




00023 


RES 1 




00024 


67 


$VERR 


RES 1 




00025 


68 


SCNTR 


RES 1 


O 
a? 


00026 


69 


CNT1 


RES 1 


l— • 

o 


00027 


70 


CNT2 


RES 1 


00030 


71 


CNT3 


RES 1 


OQ 


00031 


72 


CNTB 


RES 1 - 


2 


00032 


73 


$LN 


RES 1 


o 

• 


00033 


74 


BCIF 


RES 1 


o 


00034 


75 


$L3L1 


RES l 


IS) 


00035 


76 


SLBL1P1 RES l 


o 


00036 


77 


SLBL1P2 RES l 


(Jl 



00037 




78 IPC 


RES 


1 






00040 




79 $X 


RES 


1 




CD 


0004 1 




80 Z 


RES 







U) 


0004 1 


00000000 


81 CT 


DATA 


000000000 




O 


00042 


00000100 


82 


DATA 


000000100 




Mv 


00043 




83 Bl 


RES 









00043 


20C00000 


84 


DATA 


020000000 






00044 


20000100 


85 


DATA 


020000100 






00045 




86 B3 


RES 









00045 


04000000 


87 


DATA 


004000000 






00046 


00 00120 


88 $LST 


HIT 


TPS 






00047 


00 00112 


89 LMT 


HLT 


TPM 


LOCATION OF MNEMONIC TABLE PACKET 




00050 


00 00126 


90 $LRT 


HLT 


TPR 






00051 


00 00042 


91 SLSXT 


HLT 


SXT 






00052 


00 00046 
00 00052 


92 LSCX 

93 LSOT 


HLT 


SCXT 






00053 


HLT 


S8T 


LOCATION OF SCAN CONECTER 




00054 


00 00072 


94 LS1T 


HLT 


SIT 


LOCATION OF SCAN ITEM 


h 


00055 


00 00034 


95 LLBL 


HLT 


LBL1 


LOCATION OF LBL 


B 


^ 00056 


00 00000 


96 FPST 


HLT 


MT 


1ST MNEMONIC TABLE LOCATION 


H 


- 00057 


00 00000 


97 FINL 


HLT 


MTE 


FINAL MNEMONIC TAcLE LOCATION 


Z 


01 00060 


0000006C 
00000073 


93 SBCHR 
~~ 99 "SCCHR 


DATA 
'"DATA 


060 







00061 


073 






00062 


00000053 


ICO DCHR 


DATA 


053 






00063 


00000054 


1C1 SSCHR 


DATA 


054 


•k 




00064 


00000007 


1C2 $A7 


DATA 


07 






00065 


00000777 


1C3 A57 


DATA 


0777 






00066 


40000000 
""02000000" 


1C4 BO 
105 B4 


DATA 
DATA 


040000000 






00067 


02000000 






00070 


01000000 


106 B5 


DATA 


01000000 






00071 


00400000 


107 B6 


DATA 


0400000 




a 


00072 


00200000 


1C3 67 


DATA 


0200000 




-&■■ 

rt- 


00073 


00100000 


1 C 9 $ B 8 


DATA 


0100000 




t— ' 


00074 


00010000 
'''00'00~4000 "'" 


110 B 1 1 

111 B12 


DATA 
TJATA 


010000 




o 

OQ 


00075 


04000 




2 


00076 


00002000 


112 B13 


DATA 


02000 






• 


00077 


00001000 


113 Bl 4 


DATA 


01000 




© 
N" 
|s» 
o 


00100 


00000200 


114 Bl 6 


DATA 


0200 




00101 


0000010C 


115 B17 


DATA 


0100 




00102 


00000040 


116 SIS 


DATA 


040 




o 



00103 


00000020 


117 


819 DATA 


020 




00104 


00000010 


113 


920 DATA 


010 


DQ 
fl> 


00105 


00000004 ) 
"00000002" " 1 


[ 19 
L20 


921 DATA 
"B?2~"~ "" DAT A 


04 


*> 


00106 


2 


O 


00107 


00000001 


L21 


B23 DATA 


1 


Mi 


00110 


00000077 


L22 


C3 DATA 


077 




00111 


77770000 


123 


C01 DATA 


077770000 




00112 


00000102 1 


24 


P66 DATA 


66 




00113 


00000030 1 
00000016 1 


125 

126 


P 2 4 DATA 
PI 4 DATA 


24 




00114 


016 




00115 


00000012 3 


27 


P10 DATA 


10 




00116 


00000003 1 


L23 


P3 DATA 


3 




00117 


77777777 1 


129 


Ml DATA 


-1 




00120 


77777776 \ 


[30 


M? DATA 


-2 




00121 


77 7 7 777 2 1 
11777751 """ ] 


131 
132" 


M5 DATA 

"H'2 3 ""DATA """ 


-5 




00122 


-23 




00123 


77777721 1 


133 


M47 DATA 


-47 


£ 


00124 


30000000 1 


134 


MC DATA 


030000000 


fe 


■N 00125 
- 00126 


00000740 1 


135 


BPH DATA 


0740 


s 


00000034 1 


136 


LL DATA 


034 


o 


00000045 1 
00000067" " " " " "l 


[37 
133 


SIC EQU 
$CC EQU 


B3 







B4 






00000070 1 


139 


LC EQU 


85 






00000071 ■] 


[40 


$SC EQU 


B6 






00000072 1 


[41 


sne EQU 


B7 






00000073 1 


[42 


$PC EQU 


B8 






00000100 1 


[43 

L44~ 


SREFM EQU 
SDUPM EQU 


B16 






00000101 1 


B17 






00000106 I 


[45 


SRELM EQU 


B22 






00000107 1 


46 


EXTM EQU 


B23 


O 




00000115 1 


47 


SPAC EQU 


PIC 


V 

y- • 


to 




00000107 1 


[48 


REFT EQU 


323 




00000106 ] 


49 


DE^T EQU 


322 


00127 




[50 


BGN RES 





25 


00127 


46 30003 1 


[51 


CLR 






• 


00130 


35 00032 1 


152 


ST A 


LN 


o 


00131 




[53 


BGNB RES 





t— ' 


00131 


7l 00056 J 


[54 


LDX 


FRST,Xo 


o 


00132 


2 77 00003 1 


55 


FAX 


3*X2 


o 



00133 


37 00025 


1*6 




STX 


CNTR,XO 






00134 


2 76 00001 


157 


RST2 


LDA 


1*X? 




OQ 
(P 

in 


00135 


72 00102 
01 "0 00150 


158 
1 5 T~ 




SKA 
T3~R"U " 


318 


TEST ASSEMBLER DEFINED 


00136 


— r-stt — - 


DQNt SAVE PROGRAMMER DEFINED 


O 


00137 


2 75 00000 


160 




LDB 


0*X2 




Mi 


00140 


36 i 00025 


161 




STB 


*CNTR 


SAVE 1ST WORD 




0014 1 


61 00025 


161 




MIN 


CNTR 






00142 


2 75 00001 


163 




LDB 


1*X2 






00143 


36 1 00025 
"0 61 00025" 


164 
16 5" 


— — 


STB 


* C N T R 
"" CNTR " ~" 


SaVf 2ND WORD 




00144 


' 




00145 


2 75 00002 


166 




LDB 


2*X? 






00146 


36 1 00025 


167 




STB 


• CNTR 


Save 3RD WORD 




00147 


61 00025 


168 




MIN 


CNTR 






00150 


2 77 00003 


169 


RSTl 


EAX 


3*X2 


ADDRESS OF NEXT FROM WORD 




00151 


76 00025 
1 72" 000 57 


170 
1 71 


- - ■■■ - 


LDA 
"' ""SKE 


CNTR 
"FTNL~ "-' ~ " " 


ADDRESS ©F NEXT T3 WORD 




00152 


TEST FOR END OF COMMAND TABLE 




00153 


U 01 00134 


172 




BRU 


RST2 




r 


00154 


71 u 01445 


173 


9GN2 


LDX 


=0C200000-?4*X0 




Q 


f. 00155 
■L 00156 


76 00041 


174 




LDA 


Z 




i-3 


2 35 00142 


175 


^GN3 


STA 


ENTP,X2 


CLEAR ALL PACKETS 


2 


^ 00157 


41 00156 
76 00154 


176 
177 





BRX 
LDA'"" 


BGN3*X0 
HIGH 




O 


00160 


HIGHEST LOCATION 


00161 


54 00116 


178 




SUB 


P3 






00162 


35 00120 


179 




STA 


TPS 


BASE OF SYMBOL TA6LE 




00163 


35 00121 


1^0 




TPS + 1 






00164 


76 00111 


181 




LDA 


C01 






00165 


U 35 00123 
6" 35 6" 00125 


182 

1ST 




STA 
" §T7T"~ 


TPS + 3 
"TPS + 5 " " 






00166 






00167 


76 00056 


184 




LDA 


FRST 






00170 


54 00116 


185 




SUB 
" "5TA" 


P3 




O 


00171 


3 5 00112 


186 




TPM 


BaSf OF MNEMONIC IABLE 




00172 


76 001 11 


187 




LDA 


C01 




t— • 


00173 


35 00115 
76 o "00057 


186 

"fe'9" 




STA 


TPM + 3 




O 
OQ 


00174 


FlNL 




2 


00175 


54 00056 


190 




SUB 


FRST 






• 


00176 


71 00113 

3 5" "0 00025 


191 

192 





LDX 
"""STX"" 


P2^,X0 




o 


00177 


CNTR 


Ntf. OF uORDS IN IABLE 


t— ' 

o 


00200 


6710 03 


193 




NOD 


24 




00201 


14 0012^ 


194 




ETR 


MC 




o 



















frrtf 


00202 


54 


00045 


195 


SUB 


B3 








00203 


72 


00043 


196 


SKA 


Bl 






to 


00204 


55 
46 


00045 
20005 ~" 


197 


ADD 
ABC 


B3 






<P 


0020-5 











00206 


2 6700 000 


199 


LSH 


0#X2 






Hh 


00207 


35 
76 


00114 
00025 


200 
2C1 


STA 


TPM + 2 






In) 


00210 


LDA 


CNTR 








002! 1 


54 


00114 


202 


SUB 


TPM + 2 








00212 


35 
'55 


00116 
00056 


20 3 

204 


STA 

ADD 


TPM + 4 








00213 


FRST 








00214 


35 


00113 


205 


STA 


TPh + 1 








00215 


76 


00041 


206 


LDA 


Z 








00216 


35 


00153 


2C7 


STA 


PASS 


SET 


PASS1 




00217 


35 


00151 


208 


STA 


CTYP 








00220 


76 

35" 


00051 
00000 


2C9 


LDA 
STA 


LSXT 








00221 


SCNX 


\SET 


SCAN EXIT 




00222 


76 


00052 


211 


LDA 


LSCX 






c 


00223 


35 


00000 


212 


STA 


SCIX 






s 


•f 00224 


76 


00053 


213 


LDA 


LSeT 






t-3 

HI 


- 00225 


35 


00000 


214 


STA 


L9P 


SET 


SCAN CONNECTED 


2 


00226 


76 
35 


00054 

d dbooo 


215 
216 


LDA 
STA 


LSIT 
LITM 









00227 


SET 


SCAN ITEM 




00230 


76 


00057 


217 


LDA 


FINL 


1ST 


AVAILABLE CELL 




00231 


54 


00154 


'218 


SUB 


HIGH 








00232 


35 


00155 


219 


STA 


LIMT 


MINUS NO. 6F CELLS AVAILABLE 




00233 


00 


00000 


220 


HLT 










00234 


76 
"6 "3 5 


00041 

"o~doo"od 


221 8GN4 
222 


LDA 


Z 








00235 


STA 


ML6C 


Tg 


"AX LOC 




00236 


35 


00000 


223 


STA 


ALN 








00237 


76 


00073 


224 


LDA 


Be 






O 
fit 


00240 


35 


00142 


225 


STA 


Lee 






0' 


00241 


76 


00041 


226 LIME 


LDA 


z 






i— • 

o 


00242 


35 
0""35 


00143 


227 


STA 

STA 


PMPD 






OKI 


00243 


00144 


228 


wMeo 


T8 


hpde 


2 


00244 


35 


00002 


229 


STA 


XFLG 


RESET EXTERNAL FLAG 


O 

» 


00245 


35 

35 


00003 
00034 


230 
231 


STA 

STA 


IFLG 


RESET INDIRECT FLAG 


o 


00246 


LBI.l 


RESET LABEL 


00247 


35 


00152 


232 


STA 


STYP 






O 


00?50 


35 


00017 


233 


STA 


LERR 






cn 

















\*dl 




00251 


7 6 00117 


234 


LDA 


Ml 




p> 




00252 


35 00031 


235 


STA 


OCTF 


RESET OCTAL FLAG 


CD 




00253 
00254 


76 00122 
35 00 000 


236 
"237" 


LDA 

~~ ""Sf A'"'" 


M2 3 




-a 




* 






00255 


76 00126 


238 


LDA 


LL 




•"*» 


* 


00256 


35 00000 


239 


STA 


EDCT 




oi 


* 


00257 


43 00000 


240 


BRM 


READ 


READ LINE 






00260 


1 72 00060 


241 


SKE 


BCHR 


TEST FOR BLANK LAcEL 






00261 
00 262 


01 00434 
~0 4 30 00000 " 


242 
243" 


BRU 


L I N 1 


PROCESS LABEL FIELD 


_.... 


* 


LIN6 BRM 


FLD 


SKIP T6 OPERATION 




00263 


1 72 00060 


244 


SKE 


BCHR 








00264 


01 00267 


245 


BRU 


LPl 








00265 


43 00550 


246 


BRM 


LXL 








00266 


01 00436 


247 


BRU 


LIN10 






* 


00267 
0027 " 


43 00000 
7~6~0"~00000~~ 


243 
249 


LPl BRM 


SYM 






• 


LDA 


CHR 








00271 


1 72 00063 


250 


SKE 


SChR 


TEST FOR * 


It* 




00272 


1 73 00003 


251 


SKR 


IFLG 




H 




f 00273 


61 00003 


252 


MIN 


IFLG 


SET I FLAG 


h-t 




^ 00274 
0027 5 


1 72 00063 


253 


SKE 


SCHR 




2 




53 00117 


254 


SKN 


Ml 


ALWAYS SKIP 





* 


0027 6 


-0 43 00000 


255 


BRM 


GET 


Skip * 






0027 7 


1 72 00060 


256 


SKE 


BCHR 


TEST FOR BLANK 




* 


00300 


35 00000 


257 


STA 


SMI 


UNDEFINED COMMAND 




* 


00301 


76 00000 


25 3 


LDA 


LSYM 








00302 


75 00047 


25 9 


LDB 


LMT 






• 


00303 


43 00000 


260 


BRM 


SRCH 


LdOK UP MNEMONIC 




* 


00304 


01 00000 


261 


" "" """"""BRU" ~ 


- -p-gpj- - 








00305 


35 00145 


262 


SP0PIRT STA 


WORD 








00306 


36 00010 


263 


STB 


MODE 


SAVE TYPE 


o 

lit 


* 


00307 


43 00262 


264 


BRM 


FLD 


SKIP «0 OPERAND FIELD 


l— • 





00310 


76 00010 


265 


LDA 


M9DE 






0031 1 
"00312 


72 00105 


266 


SKA 


B21 




era 




01 1 00145 


26T 


" " " BRU " 


* W~d~R D 




3 




00313 


43 00315 


268 


BRM 


DLBL 


DEFINE LABEL 


o 




00314 
00315 


01 00335 
00 00000 


269 
270 


BRU 


LIN7 




o 




DL3L HLT 







Fa 

ro 




00316 


76 00034 


271 


LDA 


L9L1 




o 




00317 


1 72 00041 


272 


SKE 


Z 




Ui 

















I 


-*dl 




00320 


1 7? 00034 


273 




SKE 


LBL1 








00321 


51 00315 


274 




BRR 


DLBL 


exit 




00322 
00323 


76 00035 
75 00142 


275 
27 6 




LDA 
" LDB 


LBL 1*1 
L8C 




Qo 








o 




00324 


36 00036 


277 




STB 


LBL1+2 




r» 




00325 


43 01432 


278 




BRM 


SKB 




Ul 




00326 


00 00073 


279 




HLT 


B8 








00327 


16 00106 


280 




MRG 


B2? 








00330 
00331 


35 00035 
76 00055 


281 




STA 

"lda" 


LBL1+1 








282 




LLBL 








00332 


75 00046 


283 




LDB 


LST 






* 


00333 


43 00000 


284 




BRM 


NSRT 


Insert in symbol fable 






00334 


51 00315 


285 




BRR 


DLBL 


EXIT LA3EL DEFINE 






00335 


76 00010 


286 


LIN7 


LDA 


MODE 


-- 






00336 
"00337" 


C 72 00106 
01 1 00145 


287 
288 





SKA 
'"BRU~ 


B22 








*UORD 








00340 


53 00153 


289 




SKN 


PASS 




F 




00341 


01 00432 


290 




BRU 


LIN2 


1ST PASS 


B 




f 00342 
g 00343 
00344 
0034 5 " 


72 00076 


291 




SKA 


B13 




a 




• 


01 00000 


292 




BRU 


POPR 






72 00107 
01 01343 


293 

294 





SKA 


B23 






BRU 


FREF 








00346 


72 00104 


295 




SKA 


B20 








00347 


01 00442 


"296 




BRU 


INR3 








00350 


75 00117 


297 




LDB 


Ml 








00351 


72 00103 


298 




SKA 


B19 






* 


00352 
00353 


75 00000 


299 




LDB 


FORCE© 








36 00001 


300 




STB 


OCTF 


OCTAL ADDRESS 




* 


00354 


43 00000 


301 


INR1 


BRM 


SCNL 


GET INSTRUCTION ADDRESS 






00355 


02 20001 


302 


I N R 1 A 


Rev 






o 


* 


00356 


71 00000 


303 




LDX 


NAB,XO 








00357 


2 6700 000 


3C4 




LSH 


0*X2 









00360 
00361 


2 6600 000 
14 00000 


305 
306 




RSH 


0*X2 




9Q 


* 


ETR 


ADDR 




'A 




00362 


16 00145 


307 




MRG 


UOPD 




O 

• 




00363 


40 20001 


308 


INR9 


evT 






o 




00364 


61 00022 


309 




MIN 


TERR 


SET T ERROR 


f» 




00365 


36 00144 


310 




STB 


UMPD 




o 
o 




00366 


75 01446 


311 




LDB 


=07700000 




Ol 



• 


00367 


70 00000 


312 




SKM 


EQD 




^d 
p 




00370 


01 00372 


313 




BRU 


INR93 








00371 
00372 


01 00374 


314 




BRU 


INR92 




vO 


* 


70 00000 


315 


INR93 


SKM 


EQM 




O 




00373 


01 00404 


316 




BRU 


INR91 




H+i 




00374 


53 00003 


317 


INR92 


SKN 


IFLG 








00375 


16 01447 


313 




MRG 


=040000 








00376 


01 00406 


319 




BRU 


INR94 








00377 


53 00153 


320 


$PZE 


SKN 


PASS 




— 




00400 


01 00432 


321 




BRU 


LIN2 




* 


00401 


43 00354 


322 




BRM 


SCNL 








00402 


36 00144 


323 




STB 


UMftD 








00403 


14 01450 


324 




ETR 


=077777 








00404 


53 00003 


325 


INR91 


SKN 


IFLG 






* 


00405 


16 00000 


326 




MRG 


INDB 


SET INDIRECT BIT 






00406 


35 00145 


327 


INR94 


STA 


W9RD 








00407 


76 00117 


328 




LDA 


Ml 




M 




00410 


35 00001 


329 




STA 


QCTF 


RESET 8CTAL FLAG 


B 




^ 00411 
K> 00412 


76 00150 


330 




LDA 


TERM 








1 72 00061 


331 




SKE 


CCHR 




Z 




"" 00413 
00414 ~ 


01 00423 


332 
' "33 3" 




BRU 


LIN3 




u 


* 




BRM 


SCAN 


GET INDEX 


* 


00415 


14 00000 


334 




ETR 


XMSK 


MASK X FIELD 






00416 


1 72 00011 


335 




SKE 


VALU 








00417 


61 00022 


336 




MIN 


TERR 


SET TRUNCATION ERRSR 






00420 


6700 025 


33 7 




LSH 


21 


POSITION X FIELD 






00421 


16 00145 


338 


SINR2 


MRG 


UQRD 








00422 


35 00145 


339 




STA 


W8RD 


IiMSERI INDEX 


-sir 


00423 


76 00000 


340 


SLIN3 


LDA 


INST 








00424 


35 00146 


341 




STA 


URD2 


INSTRUCTION F8RM 


o 




00425 


76 00060 


342 


LIN8 


LDA 


BCHR 




I— 1 




00426 


1 72 00150 


343 




SKE 


TERM 


TEST FOR BLANK 




00427 


61 00015 


344 




MIN 


EERR 


SET ERR9R 


o 




00430 


35~~ 00 1513 


~3"4~b 




TERM 




* 


00431 


43 00000 


346 




BRM 


EDIT 


EOIT INSTRUCTI6N 




• 




00432 


61 00142 


347 


SLIN2 


MIN 


L9C 


L+l TO L 


o 




00433 


01 00241 


343 




BRU 


LINE 




1— • 




00434 


1 7? 00063 


349 


L INI 


SKE 


SCHR 


TEST FOR * 


o 




00435 


01 00510 


350 




BRU 


LIN4 




o 



00436 






351 


$NOPO 


RES 











00436 


53 


00153 


352 


LIN10 


SKN 


PASS 




• 


OPQ 


00437 


01 

""0 43 


00241 
00000 


353 
35 4 




BRU 


LIME 


SKIP IF 1ST PASS 


* 00440 




,BRM 


PRNT 


PRINT 


COMMENTS LINE 





00441 


01 


00241 


355 




BRU 


LINE 








t-h 


00442 


76 


00010 


356 


INR3 


LDA 


MODE 






ro 


00443 


72 


00075 


357 




SKA 


B12 






ut 


00444 


01 


00446 


35 3 




BRU 


$ + 2 








00445 


01 
0~4 3~"0 


00467 
"00 4 "14 


359 




BRU 


INR31 








* 00446 


360 




BRM 


SCAN 








00447 


75 


00041 


361 




LDB 


Z 








00450 


72 


00105 


362 




SKA 


B21 








* 00451 


75 


00367 


363 




LDB 


EOD 








00452 


14 


00116 


364 




ETR 


P3 








00453 


1 66 


00000 


365 




CAX 








__. 


00454 


46 10012 


366 




~WX' ~ 








00455 


2 16 


00041 


367 




MRG 


CT,X2 






1- 


00456 


16 


00145 


368 




MRG 


WORD 






u 


±v 00457 
* io 00460 


75 


01446 


369 




LDB 


=07700000 






H 
1— 1 


70 


00000 


370 




SKM 


SKSEOD 






2 


10 00461 


01 
"0 170 


00463 


371 




BRU 


$ + 2 






O 


* 00462 


00000 


372 




EOR 


EODI 








00463 


35 


00145 


373 




STA 


WORD 








00464 


76 


00150 


374 




LDA 


TERM 








00465 


1 72 


00061 


375 




SKE 


CCHR 








00466 


01 


00423 


376 




BRU 


LIN3 








00467 


76 


01447 


377 


INR31 


LDA 


=040000 








00470 


53 


00003 


37 8 




SKN 


IFLG 








00471 


1 76 


00145 


379 




ADM 


WORD 








* 00472 


43 


00446 


380 




BRM 


SCAN 






O 


00473 


14 


00110 


381 




etr 


C3 






■w- 


00474 


1 72 


00011 


382 




SKE 


VALU 








00475 


61 


00022 


383 




MIN 


TERR 








OK) 


00476 


1 76 


00145 


384 




ADM 


WORD 


INSERI 


UNI 1 


Z 


00477 


76 


00150 


385 




LDA 


TERM 






O 

• 


00500 


1 72 


00061 


386 




SKE 


CCHR 






O 


00501 


01 


00423 


38 7 




BRU 


LIN3 


Nd CHAKACFER COUN 1 





* 00502 


43 


00472 


388 




BRM 


SCAN 


GET CHAR/UORD 


00503 


1 72 


00041 


389 




SKE 


Z 










00504 





54 


00107 


390 




SUB 


B23 






0050 5 





14 


00116 


391 




ETR 


P3 




BQ 


00506 





6700 007 


392 




LSH 


7 


POSITION CHAR/WORE 


-M. 


00507 





01 


00421 


_ 3-5-y- 




BRU 


INR2 




»-« 


00510 


1 


72 


00062 


394 


LIN4 


SKE 


DCHR 


TEST FOR $ 





00511 





01 


00515 


395 




BRU 


LIN5 




w 


00512 





53 


00153 


396 




SKN 


PASS 




w 


00513 





61 


00002 


397 




MIN 


XFLG 


SET EXTERNAL FLAG 




* 00514 





43 


00276 


398 


LIN49 


BRM 


GET . 


' 




00515 


0~75 


00071 


39-9 


TTR5 


TUB 


" SC 


check f&r label character 




00516 






73 
61 


00041 
00017 


400 
401 




SKG 

~ M I N 


Z „_^ • 


1ST CHAR * -*— O 




00517 


LERR AJ Of __■ 


00520 





43 


01432 


402 




BRM 


SKB ~~ 






* 00521 


2 


00 


00000 


403 




HLT 


CTT.X2 






00522 





01 


00524 


404 




BRU 


LIN9 






0052 3 





61 


00017 


405 


LIN11 


MIN 


LERR 


SET LABEL FIELD ERROR FLAG 




* 00524 





43 


00267 


406 


LIN9 


BRM 


S Y M <■ - 




V 


00525 





35 


00034 


407 




STA 


LBLl 


SAVE 


K 


f> 00526 


1 


65 


00000 


408 




CBA 






•-3 

1— 1 


£ 00527 





16 


00002 


409 




MRG 


XFLG 


SET EXTERNAL MODE 


a 


00530 






35 
"16" 


00035 
d~00034" ~ 


410 




STA 
MRG 


L9L1+1 







00531 


411 




LBLl 






* 00532 





72 


00000 


412 




SKA 


DLY1 


TDST FOR AT LEST 1 ALPRABETEC 




00533 





53 


00117 


413 




SKN 


Ml 


ALWAYS SKIP 




0053 4 





61 


00017 


414 




MIN 


LERR 


ALL NUMERIC 




* 00535 





76 


00270 


415 




LDA 


CHR 






00536 


1 


72 


01451 


416 




SKE 
BRU 








00537 





01 


00542 


417 




LIN99 






0054Q 





43 


00550 


418 




BRM 


LXL 






0054 11 





01 


00514 


419 




BRU 


LIN49 







005 4 2 


1 


72 


00060 


420 


LIN99 


SKE 


BCHR 






0054 3 





61 


00017 


421 




MIN 


LERR 


ILLEGAL CHARACTER IN LABEL 


1— • 



0054 4 





76 


00041 


422 





LDA 


Z 




0054 5 


1 


72 


00017 


423 


" SKE 


LERR 


1 ES 1 FOR LABEL LKKOK 


2 


005 4 6 





35 


00034 


424 




STA 


LBLl 


DeNT ENTER LABEL 




t 


00547 





01 


00262 


425 




BRU 


LIN6 







00550 





00 


00000 


426 


LXL 


HLT 







*-• 


00551 





76 


00055 


427 




LDA 


LLPL 







00552 





75 


00046 


428 




LDB 


LST 








* 


00553 


43 00303 


429 


BRM 


SRCH 










00554 


51 00550 


430 


BRR 


LXL. 




OQ 






00555 


1 65 C0000 


431 
432 


CBA 

MRG 






k-» 






00556 


16 00002 


XFLG 




M 






00557 


2 35 00001 


433 


STA • 


1 * X 2 




O 






00560 


51 00550 


434 


BRR 


LXL 




W 




It 


00561 


43 00502 


435 $EQU 


BRM 


SCAN 


get value 


Ul 






00562 


35 00145 


436 


STA 


WORD 










00563 
00564 


46 00014 
14 00120 


437 

"4 3 a ' 


XA6 












ETR 


M2 


' 








00565 


1 76 00035 


439 


ABM - 


LBL1+1 










0056 6 


36 00036 


4 40 


STB 


LBL1+2 










00567 


76 00055 


441 


LDA 


LLPL 










00570 


75 00046 


442 


LDB 


LST 








k 


00571 
00572" 


43 00333 


443 EQUl 


BRM 


NSRT 


I.mSERT IN SYMBOL TABLE 








53 00153 


444 EQU2 


SKN 


P~A~SS 








00573 


01 00241 


445 


BRU 


LINE 




h 




k 


00574 


43 00000 


446 


BRM 


EDTV 


PRINT 


& 






^ 00575 


01 00241 


447 


BRU 


LINE 




h- m 




k 


ro 00576 


76 00352 


449 $6PD 


LDA 


FORCEO 




2 






00577 
00600 


35 00001 
43 005 61 


449 

450 " ~ 


STA 

B'RK 


9CTF 


SET OCTAL FLAG 







k 


SCAN 


Gtl VALUE 






00601 


35 00145 


451 


STA 


word 










00602 


35 00036 


452 


STA 


LBLl+2 










00603 


76 00102 


453 


LDA 


B18 










00604 


1 76 00035 


454 


ADM * 


LBL1+1 










00605 
0060 6 ' 


76 00055 
6 7 5^ 6 00047 


45 5 QPD1 
456 


LDA 
LDB 


LLBL 










LMT 








k 


00607 


43 00571 


457 


BRM 


NSPT 










00610 


14 01452 


458 


ETR 


=07777 




a 






00611 


1 72 01453 


459 


SKE 


=02140 




-w- 






00612 


01 00572 


460 


3RU 


EQU2 




•— • 






00613 
""'00614"" 


76 00035 
2 35 00001 


461 
462 


LDA 
"5TT 


LBL1+1 




O 
OQ 

2 






1*X2 








00615 


76 00036 


463 


LDA 


L9L1+2 






• 






00616 


2 35 00002 


464 


STA 


2-X2 




o 






00617 


01 00572 


465 


BRU 


EQU2 










00620 


46 30003 


466 $ F R M 


CLR 






O 






00621 


36 00146 


467 FRM3 


ST3 


URD2 


STORE FORM UORD 


o 





00622 
00623 
00624 
006 2 5 
00626 
00627 



00630 

00631 

00632 

006 33 

006 3 4 

00635 

00636' 

00637 

00640 

00641 

00642 

00643 



43 

1 66 
75 

"0 7 60 

2 6720 
72 

"6" 1 o" 
43 
00 



00600 

00000 

00_14_6_ 

000 66 

000 

00117 



466 
469 

470 
471" 

472 
473 



~BRM" 
CAX 
LDB 
LDA" 
LCY 
SKA 



SCAN 

_URD2 
BO"""" 
0*X? 
Ml 



get field length 



01 

76 

1 72 



00640 

01432 

00066 

00641" 

00150 

00061 



474 

475 

4 7_6_ 

477 

478 

479 



BRU 

BRM 

HLJ_ 

"BRU 

LDA 

SKE 



FRM1 
SKP 

BO 

FRM'2 
TERM 
CCHR 



INSERT NEW FIELD 
MtfRE IHaN 24 SITS 



end of form 



01 
01 o 

61_p 

1 65 
16 
35 



00640 

00621 

000_22_ 

00000 

00066 

00036 



4SQ 
481 

_4e_2_FR_M_l_ 
483 FRM2 
464 
485 



B*U 

BRU 

MI_N 

CB'A" 

MRG 

STA 



FRM1 
FRM3 
TERR __ 

BO 
LBL1+2 



LESS IHAN 24 BITS 
PROCESS NEST FIELC 
SET TRUNCATION ERROR 



9Q 



ro 
en 



00644 
00645 
00646 
0064 7 
00650 
00651 



76 

55 






1 76 
7 60 
75 



43 



00107 
00102 
00035 
"00055" 
00047 
00607 



486 
487 

488. 
"489 

490 

491 



LDA 
ADD 
A_DM 

Ida" 

LDB 
BRM 



823 
B18 
LBl 1+1 



LLBL 

LMT 

NSRT 



INSERT FORM ITEM 



PASS" 
LINE 

EDE 



00652 
00653 
_0065 4_ 
00655 
00656 
00657 



53 
01 
43 
"4 3 
01 
53 



00153 
00241 
00000 



00440 
00241 
00153 



492 
493 
4 94 

495 FRM4 

496 

497 SPAGE 



SKN 
BRU 
BRM 

BRU 
SKN 



SKIP IF PASS 1 
EDIT ERRORS 



~P~RTJT 
LIME 
PASS 



~9W 
BRM 
BRM 



LINE 
HOME 
PRNT 
LINE 

0RG1 

ILOC 
LOC 



DaNT tJEC! II- PASS 1 
EJECT TO NEXT PAGE 



00660 

00661 

00662^ 

00663" 

00664 

00665 



01 
43 
0_ 4 3__0 
"01 
46 3 
01 



00241 
00000 
00655 



496 
499 
500 



00241 
0003 
00667 



5C1 

502 SAORG 
503 



WO" 
CLR 
BRU 



76 
43 
35 



"5C4 $«RG 
5C5 0RG1 
506 



rex 

BRM 
STA 



00666 
00667 
00670 



00073 
00673 
00142 



GET NEW LOC 



00671 





43 





00315 


507 




BRM 


DLBL 


DEFINE LABEL 


v 
p 


00672 





01 





00704 


508 




BRU 


BSS1 




TO 
ft 


00673 





CO 





00000 


509 


IL9C 


HLT 









00674 





35 





00156 


510 




STA 


LOCI 




* 00675 





43 





00000 


511 




BRM 


MAXL 


SET MAXIMUM LQC 




Ml 


* 00676 





43 





00622 


512 




BRM 


SCAN 


GET INCREMENT 


w 


00677 





55 





00156 


513 




ADD 


LOCI 




urt 


00700 





35 





00156 


514 




STA 


LOCI 


save result 




00701 





51 





00673 


515 




BRR 


IL8C 


EXIT 




00702 





76 





00142 


516 


SBSS 


LDA 


LOC 


OLD LQC 




00703 





43 





00673 


517 




BRM 


IL6C 


GET NEW L8C 




00704 





53 





00153 


518 


BSS1 


SKN 


PASS 


TEST PASS 




00705 





53 





00117 


519 




SKN 


Ml 


D9NT PRINT IF 1ST PASS 




* 00706 





43 





00000 


520 




BRM 


EDTL 


PRINT LOCATION 




00707 





76 





00156 
00142 


521 
522 




LDA 


LOCI 


NEU LOCATION 




00710 





35 







STA 


LOC 






00711 





01 





00241 


523 




BRU 


LINE 




F 


* 00712 





43 





00676 


524 


$ D A T A 


BRM 


SCAN 


- 


B 


^ 00713 
ro 00714 





53 





00153 


525 




SKN 


PASS 




H 





01 





00722 


526 




BRU 


DATA1 




§ 


* 00715 






35 
36" 




6 


00145 


527 




STA 
"STB " 


WORD 







00716 


00144 


528 




UMOD 






00717 





76 





00066 


529 




LDA 


BO 






00720 





35 





00146 


530 




STA 


URD2 






* 00721 





43 





00431 


531 




BRM 


EDIT 






00722 





61 





00142 


532 


DATA1 


MIN 


LOC 






00723 




" 1 


76 
72 






00150 
00061 


533 

534 




LDA 


TERM 






00724 


SKE 


CCHR 






00725 





01 





00241 


535 




BRU 


LINE 






00726 





01 





00712 


536 




BRU 


DATA 




a 


00727 





76 





00123 


537 


$DED 


LDA 


M47 


SCALE 




TO 


* 00730 





35 





00254 


538 




STA 


SCALE 




* 00731 






43 
23 






00000 
00000 


539 
540 




BRM 
EXU 


DPW 
DPUR 


GET DOUBLE PRECISION UORD 


* 00732 


To EXCHANGE OR NOT TO hXCHANGE 


2 


00733 





36 





00145 


541 




STB 


WORD 






• 


00734 





35 





00011 


542 




STA 


VALU 




o 


00735 





53 





00153 


543 




SKN 


PASS 




1— ■ 
(SI 


00736 





01 





00742 


544 




RRU 


DEDl 




O 


00737 





76 





00066 


545 




LDA 


BO 




<Ji 



00740 


35 


00146 


546 




STA 


URD2 




* 00741 


43 


00721 


547 




BRM 


EDIT 


OQ 
fl> 


00742 


61 


00142 


548 


DED1 


MIN 


L9C 


*-• 


00743 


53 


00153 


549 




SKN 


PASS 


Ul 


00744 


01 


00752 


550 




BRU 


DED2 





00745 


7x6 


00011 


551 




LDA 


VALU 


ft 


00746 


35 


00145 


552 


' 


STA 


wspd 


Ul 


00747 


76 


00066 


553 




LDA 


BO 




00750 


35 
"43 "0" 


00146 
007 4 1 


554 




STA 


URD2 




* 00751 


555 




BRM 


EDIT 




00752 


61 


00142 


556 


DED2 


MIN 


L8C 




00753 


76 


00150 


557 




LDA 


TERM 




00754 1 


72 


00051 


558 




SKE 


CCHR 




00755 


01 


00241 


559 




BRU 


LINE 




00756 


010 


00727 


560 
561 




BRU 


DED 




00757 


$BCD 


RES 







00757 


75 


00115 


562 




LDB 


SPAC 


c 


00760 


01 


00762 


563 




BRU 


$ + 2 


B 


■u 007 61 

io 0076 1 






564 


$T£XT 


RES 





s 


75 


00060 


565 




LDB 


BCHR 


^ 00762 


36 
7 6 


00033 


566 




STB 


BCIF 


u 


* 00763 


00535 


567 




LDA 


CHR 




00764 1 


72 


01454 


568 




SKE 


= *<* 




00765 


01 


00772 


. 569 




BRU 


TEXT7 




00766 


76 


001 14 


570 




LDA 


P14 




00767 


35 


00150 


571 




STA 


TERM 




00770 


76 
01 


01455 
01002 


572 
573 




LDA 


= 55 




00771 




BRU 


TEXT6 




* 00772 


43 


00000 


574 


TEXT7 


BRM 


DECU 




00773 


54 


00107 


575 


TEXT1 


SUB 


B23 


o 


007 7T 


75 


00101 


576 




LDB 


B17 


r+ 


00775 


36 


00150 


577 




STB 


TERM 


P> 

i— » 

OQ 


007 7 6 


73 


01455 


578 




SKG 


= 55 


00777 


0l~U" 


1 0~0"2~ 


579 




BRU 


1&XT6 


2 


01000 


76 


01455 


seo 




LDA 


= 55 


O 

» 


01001 


61 


00022 


581 




MIN 


TERR 


o 


01002 


35 


00031 


5e2 


TEXT6 


STA 


CNTB 




* 01003 


43 


00514 


58 3 




BRM 


GET 


O 


01004 U 


53 


00031 


584 


TEXT2 


SKN 


CNTB 


o 



01005 


53 





00117 


585 




SKN 


Ml 


AlUayS SKIP 




01006 


01 





00241 


58 6 




BRU 


LINE 


DONE 


OQ 


01007 


76 

1 74 






00033 
01456 


587 
588 





LDA 
MUL 


BCIF 




H- 


01010 


=01010101 




& 


01011 


6700 


027 


589 




LSH 


23 







01012 


35 





00145 


590 




STA 


word 


SET WORD TO BLANKS 


N 


01013 


71 





01457 


591 




LDX 


=00200000-4*X0 






* ,01014 


76 





00763 


592 


TEXT3 


LDA 


chr 






01015 


1 72 
01 






00060 
01020 


593 




SKE 


BCHR 






01016 


594 




BRU 


$♦? 






01017 


76 





00033 


595 




LDA 


BCIF 






01020 


1 72 





00150 


596 




SKE 


TERM 






01021 


01 





01025 


597 




BRU 


TEXT8 






01022 


1 71 





00000 


598 




CNA 








01023 


35 





00031 


599 




STA 


CNTB 






01024 


01 





01036 


600 




BRU 


TEXT4 






01025 


54 





00033 


601 


TEXT8 


SUB 


BCIF 




E 


01026 


75 





00041 


602 




LDB 


Z 






^ 01027 
io 01030 


2 23 





01051 


603 




EXU 


TEXT5*X2 


txtcult sHir i 


S 


1 76 





00145 


604 




ADM 


UftRD 


ADD CHARACTER TO UftRD 


00 01031 


37 
43 






00025 
01003 


6C5 
6C6 





STX 
fffffl' 


CNTR,X0 







* 01032 


GET 






01033 


71 





00025 


6C7 




LDX 


CNTR,XO 






01034 


1 73 





00031 


608 




SKR 


CNTB 






01035 


41 





01014 


609 




BRX 


TEXT3#X0 






01036 


76 





00066 


610 


TEXT4 


LDA 


BO 






01037 


35 





00146 


611 




STA 


URD2 






01040 


53 





00153 


612 




SKN 


PASS 






01041 


53 





00117 


613 




SKN 


Ml 


YES 




* 01042 


43 





00751 


614 




BRM 


EDIT 


EDIT ALPHA-NUMERIC W5RD 



ft 


01043 


Q 61 





00142 


615 




MIN 


L9C 


L+l TO l 





01044 


01 





01004 


616 




BRU 


TEXT2 




01045 


6700 
6700 


022 


617 




LSH 


18 




OQ 


01046 


014 


618 




LSH 


12 




2 


01047 


6700 


006 


619 




LSH 


6 




o 

• 


01050 


20 





00000 


620 




NSP 







o 


01051 








621 


Texts 


RES 







■ym ■ 
IN) 


01051 


76 





00041 


622 


ENDPS 


LDA 


z 




o 

s 


01052 


35 





00153 


623 




STA 


PASS 


F9RCE END ©F PASS 1 



01053 




624 


SEND 


RES 









01053 


53 00153 


625 


ENDlA 


SKN 


PASS 






01054 


01 01056 


626 




BRU 


END1 


EimD PASS 1 


Jtsf.. 


01055 


01 01173 


627 




BW - 


END2 




-3 


01056 




628 


END1 


RES 









Ml 


01056 


43 00000 


629 




BRM 


ENDSI 




M 


01057 


76 00117 


630 




LDA 


Ml 




<JI 


01060 


35 00153 


631 




STA 


PASS 


CmAnGE PASS 




01061 


76 00142 


632 




LDA 


LBC 


, 




01062 


35 00157 


633 




STA 


LOCP 


SET LITERAL 6PUGIN 




01063 


35 00000 


634 




STA 


LADD 


SET 1ST LITERAL ADDRESS 




01064 


71 00000 


635 




LDX 


ERRCXO 






01065 


76 00041 


636 




LDA 


2 






01066 


2 35 00024 


637 


END3 


STA 


VEPR*X2 


Clear errqr flags 




01067 


41 01066 
35 00024 


636 
639 




8RX 


ENP3*X0 






01070 




STA 


VERR 






01071 


35 00000 


640 




STA 


DUC 




t* 


0107 2? 


76 00106 


641 




LDA 


DEFT 




& 


*. 010 7 3 
k> 010 7 4 


35 00152 


64? 




STA 


STYP 




H4 


76 00107 


643 




LDA 


B23 




z 


* 01075 


35 00151 
" 7f "00120 '" 


644 

6 45 




STA 
LDX 


CTYP 




u 


01076 




TPS,XO 






01077 


1 67 00000 


646 


END 14 


CXA 








Oil 00 


55 00116 


647 




ADD 


P3 






01101 


73 00154 


64d 




SKG 


HIGH 






01102 


53 00117 


649 




SKN 


Ml 






01103 


010 01 120 


650 




BRU 


END13 






01104 


1 66 00000 


651 




CAX 








01105 


2 76 00001 


652 




LDA 


1,X2 






0110 6 


72 00107 


653 




SKA 


EXTM 




o 

(a 


0110 7 


53 00117 


654 




SKN 


Ml 




»— » 

OQ 


OHIO 


01 01077 


655 




BRU 


END14 




01111 


14 00120 
"2 "35 000 Of" 


656 




ETR 


M2 




01112 


657 




~S7"A~" ' 


1*X2 




01113 


37 00145 


656 




STX 


U9PD-X0 






• 


01114 


37 00025 


65 9 




STX 


CNTR,XO 




o 


01115 


43 00000 


660 




BRM " 


euTP 






01116 


71 00025 


661 




LDX 


CNTR,XO 




o 


01117 


01 01077 


662 




BRU 


END14 




o 
en 



01120 


76 


00041 


663 


END13 


LDA 


1 




to 


01121 


35 


00005 


664 




STA 


LTR1 




OQ 

0> 


01122 


76 
0"35 0~ 


00106 

"ooTsi 


66 5 
665 




LDA 


B2? 






01123 




" ST A ~ 


CTYP " " 




00 


01124 


76 


00112 


667 




LDA 


TPM 




O 

t-h 


01125 


55 


00114 


663 




ADD 


TPM + 2 




tv) 


01126 


55 


00116 


66 9 




ADD 


TPM + 4 




Oi 


0U27 


35 


00134 


670 




STA 


TPL 


SRlGlN 9F LIETERL TABLE 




/ 01130 


71 

2"7 7"0" 


00056 


671 





LDX 


FRST,X0 






01131 


00003 


672 


EAX 


3,X2 






01132 


37 


00025 


673 


ENDP2 


STX 


CNTR,X0 






01133 


2 76 


00001 


674 




LDA 


1#X2 






01134 


75 


01452 


675 




LDB 


^07777 






01135 


70 


01460 


676 




SKM 


=02040 






01136 


01 
"2"7"6~0 


01 146 
00002" 


677 

' " "67 8 




8RU 


ENDP1 






01137 




"LUX 


2,X2 






01140 


6620 


020 


679 




RCY 


16 




F 


01141 


16 


00005 


68 




MRG 


LTP1 




a 


^ 01142 
Z 01143 


6 7 20 


020 


681 




LCY 


16 






2 35 


00002 


682 




STA 


2*X2 




2 


° 01144 


61 
43 


00005 
01115 


683 
684 





MIN 
""BRM 


LTP1 







01145 


6UTP 




01146 


71 


00025 


68 5 


EMDP1 


LDX 


CNTR,X0 




' 


01147 


2 77 


00003 


' 686 




EAX 


3,X2 






01150 


1 67 


00000 


68 7 




CXA 








01151 


1 72 


00134 


688 




SKE 


TPL 






01152 


01 


01132 


689 
690 





BRU 


ENCP2 






01153 


76 


00041 


LDA 


Z 






0115 4 


35 


00151 


691 




STA 


CTYP 






01155 


76 


00120 


692 




LDA 


TPS 




o 


01156 


35 


00126 


693 




STA 


TPP 


origin of reference taple 


t— • 

o 


01157 


35 


00127 


694 




STA 


TPR + 1 




01160 


76 


00111 


695 




LDA 


C01 




OQ 


01161 


35 


00131 


696 




STA 


TPR + 3 




12! 


01162 


35 


00133 


697 




STA 


TPR + 5 




o 

• 


01163 


35 


00135 


693 




STA 


TPL + 1 




o 


01164 


76 


00117 


699 




LDA 


Ml 




~f=> 


01165 


35 


00137 


700 




STA 


TPL+3 




O 

Q 


01166 


76 


00532 


701 




LDA 


DLVi 




<J1 



















01167 


71 01461 


702 




LDX 


=002O000O-«*X0 




01170 


2 35 00000 


7C3 


EMD8 


STA 


C3UF,X2 


clear print line 




01171 


41 01170 


704 





BRX 
BRU 


END8*X0 




•-■ 


01172 


01 00234 


705 


BGM4 




*o 


01173 


76 00107 


706 


END2 


LDA 


B23 







0U74 


35 00004 


7G7 




STA 


EFLG 




ts> 


0117 5 


76 01014 


7C5 




LDA 


CHP 




Ui 


01176 


1 72 00060 


709 




SKE 


9CHR 






01177 


53 00117 
01 01210 


710 
711 




SKN 


Ml 


always skip 




01200 




BRU 


END4 


N9 TRANSFER 




01201 


43 00712 


712 




BRM 


SCAN 


GET TRANSFER ADDRESS 




01202 


35 00145 


713 




STA 


U9RD 






01203 


76 00066 


714 




LDA 


BO 






01204 


35 00146 


715 




STA 


URD2 






01205 


43 00574 
" 1 73 00004 


716 
717 




BRM 
SKR 


EDTV 


EijTT 




01206 




EFLG 


SET TRANSFER FLAG 




01207 


01 01211 


718 




BRU 


END5 




M 


01210 


43 00662 


719 


EMD4 


BPM 


PRNT 


PRINT 


K 


■f 01211 
w 01212 


71 00134 


720 


END5 


LDX 


TPL.XO 


LIT TABLE ORIGIN 


H 


76 00157 


721 




LDA 


LBCP 




2 

a 


01213 


35 00142 
35 00005'""' 


722 
72 3" 





STA 
STA" 


L9C 




01214 


LTR1 


T© SEQUENCE 




01215 


1 72 00000 


724 


END6 


SKE 


LADD 






01216 


01 01275 


725 




BRU 


PLTR 


LITERAL TQ OUTPUT 




01217 


43 00675 


726 




BRH ' 


MAXL 


maximum lscausn 




01220 


76 00107 


727 




LDA 


REFT 






01221 


35 0015? 


728 




STA 


STYP 






01222 


76 00107 


72.9 




TUT 


B23 






01223 


35 00151 


730 




STA 


CTYP 






01224 


71 00050 


731 




LDX 


LRT,XQ 


1ST WORD QF REF TABLE 


o 
pi 


01225 


2 76 00000 


732 




LDA 


0-X2 




ST 


01226 


55 00116 


733 




ADD 


P3 




»— • 




01227 


35 00005 


734 




STA 


LTR1 




OQ 


01230 


2 55 00002 


735 




ADD 


2*X2 




a 


01231 


2 55 00004 


736 




ADD 


4,X2 




o 

• 


01232 


35 00006 


737 




STA 


LTR2 


END OF REF TABLE 


o 


01233 


76 00006 


738 


EN ! D12 


LDA 


LIR2 




IM 


01234 


73 00005 


739 




SKG 


LTP1 




O 


01235 


01 01256 


740 




BRU 


END15 


NQ MORE REFS 


Oi 



— 


01236 


76 


00005 


741 


LDA 


LTR1 








01237 


35 


00145 


742 


STA 


WORD 




OQ 




01240 
01241 


76 1 
35 


00005 
00000 


743 
744 


LDA 


*LTR1 




■im 


* 


STA 


EREF1 




o 




01242 


61 


00005 


745 


MIN 


LTR1 




o 




01243 


76 1 


00005 


746 


LDA 


*LTR1 




N 




01244 


14 


00111 


7A7 


ETR 


C01 




tfl 




01245 


16 


01462 


7^6 


MRG 


_ * » 






* 


01246 


35 


00000 


749 


STA 


EREF2 








01247 


61 


00005 


750 


LTP1 








01250 


76 1 


00005 


751 


LDA 


*LTR1 








01251 


61 


00005 


752 


MIN 


LTR1 








01252 


35 


00142 


753 


STA 


LSC 






* 


01253 


43 


00706 


754 


BRM 


EDTL 






* 


01254 
0125 5 


43 


01145 


755 


BRM 
3RU 


euTP 


©JTPUT REF 






01 


01233 


756 


END12 








01256 


76 


00116 


757 END15 


LDA 


P3 




t* 




01257 


35 


00151 


75 6 


STA 


CTYP 


END CARD TYPE 


H 




^ 01260 
co 01261 


1 73 


00004 


759 


SKR 


EFLG 




»-3 
i— i 




01 


01257 


760 


BRU 


END7 


N3 TRANSFER 


2 




^ 01262 
01263 


76 
" 35"" 


0001 1 
"00145 


761 

76 2 


LDA 
STA""" 


VALU 









U8RD 


ADDRESS 






01264 


76 


00010 


763 


LDA 


MODE 








01265 


35 


00144 


764 


STA 


WMOD 






• 


01266 


43 


01254 


765 


BRM 


qutp 


SuTPUl TRANSFLR CARD 






01267 


76 


00105 


766 END7 


LDA 


B21 








01270 
01271 


35 


00151 


7e7 


STA 


CTYP 






* 


43 


01266 


768 


B~RM 


©UTP 


clear cards 






01272 






769 END11 


RES 









* 


01272 


43 


00661 


770 


BRM 


H8ME 




a 


ik 


01273 


43 


00000 


771 


BRM 


UERF 








01274 


01 


00127 


772 


BRU 


BGN 








01275 
0T27 6 


1 67 

1"5"5 0" 


00000 
"00116""" 


773 PLTP 


CXA 
■-ADIT*' 




OQ 




P3 


CURRtNl SLOUtNCL 


z 




01277 


1 66 


00000 


775 


CAX 






o 

• 




01300 


2 76 


00002 


776 


LDA 


2*X2 




o 




01301 


1 72 


00005 


777 PI.T2 


"5KT" 


LTR1 




•— • 




01302 


01 


01320 


773 


BRU 


PLTl 


©UT 6F SEQUENCE 


o 




01303 


2 76 


00000 


779 


LDA 


0*X2 




Ol 



01304 


35 00145 


780 


STA 


WORD 


Value 


■•d 


01305 


2 76 00001 


781 


LDA 


1*X2 






01306 


35 00144 


782 


STA 


UMOD 


MODE 


M 


01307 


76 00066 


783 


LDA 


BO n 




i-" 


01310 


35 00146 


784 


STA 


WRD2 







01311 


37 00006 


785 


STX 


LTR2*X0 




ro 


01312 


43 01042 


78 6 


BRM 


EDIT 




Ul 


01313 


71 00006 


7&7 


LDX 


LTR2,X0 


RESTORE 




0131 4 


61 00005 


788 


MIN 


LTRl 


INCREMENT SEQUENCE 




01315 


76 00005 


789 


LDA 


LTRl 


• 




01316: 


61 00142 


790 


MIN 


L&C 






01317 


01 01215 


791 


BRU 


END6 






01320 


54 00157 


792 PLT1 


SUB 


LOCP 






01321 


35 00025 


793 


STA 


CNTR 






01322 


55 00025 


794 


ADD 


CNTR 






01323 


55 00025 


795 


ADD 


CNTR 


3 * StOuENCE 




01324 


55 00116 


796 


ADD 


P3 




H 


01325 


55 00134 


797 


ADD 


TPL 




fe 


4^ 01326 


35 00007 


798 


STA 


LTP3 


correct position 


H 


o 01327 


2 76 00000 


799 


LDA 


0*X2 




2 


w 01330 


1 77 1 00007 
2 35 b' 00000 


800 

"""~8cr" 


XMA 


*LTR3 


EXCHANGE LITERALS 





01331 


0VX2 




01332 


61 00007 


802 


MIN 


LTR3 






01333 


2 76 00001 


803 


LDA 


1*X2 






01334 


1 77 1 00007 


804 


XMA 


*LTP3 






01335 


2 35 00001 


80 5 


STA 


1#X2 






01336 


61 00007 
2 76 00002 


8C6 


MIN 
LDA 


LTR3 






01337 


807 


2-.X2 






01340 


1 77 1 00007 


808 


XMA 


*LTR3 






01341 


2 35 00002 


809 


STA 


2*X2 




a 


01342 


U 01 01301 


810 


BRU 


PLT2 






01343 


7 6 00113 


811 FREF 


LDA 


P24 




I— ■ 


01344 


35 00026 


812 


STA 


CNTl 


No. OF BITS LEFT 





01345 


76 00121 


" -8f3 " 


" ~OTAT~ " 


M5 




2 


01346 


35 00030 


814 


STA 


CNT3 


SET FIELD COUNT 




• 


01347 


76 00145 


815 


LDA 


WORD 




o 


01350 


3 5 00147 


816 


STA 


URDl 


SAVt l-OKM .l-DK tUl 1 


to 


01351 


35 00146 


817 


STA 


WRD2 




o 


01352 


76 00041 


818 


lda 


Z 




Ul 



01353 


U 35 00145 


81 9 




SI A 


U5RD 


16 UATA 


+6 


01354 


U 75 00066 


820 




LDB 


BO 






01355 


43 00000 
"01 014T5 " 


821 


FR4 


BRM 


FLDC 


COUNT PITS IN FIELD 


01356 


82~2 




FR5 


No rt'BKE FIELDS 


01357 


61 00030 


823 




M1N 


CNT3 







01360 


35 00027 


824 




STA 


CNT2 


FIELD SIZE 


hi 


01361 


1 72 00000 


825 




SKE 


AB 


AUDREbS BUS 


Ui 


01362 


01 01370 


826 




BRU 


FR2 


NaT ADDRESS SIZE 




0136 3 


1 72 00026 
01 01 370 


827 

'""82 8 





SKE 


CNT1 


BITS LEFT 


— 


01364 


BRU 


FR? 


NOT ADDRESS FIELD 


01365 


43 00401 


829 




BRM 


SCNL 






01366 


36 00144 


830 




STB 


UMFD 






01367 


01 01374 


831 




BRU 


FR3 






01370 


4 3 01201 


832 


FR2 


BRM 


SCAN 


GET NQN-ADDRESS FIELD 




01371 


43 01432 ' 
"'00 " 0" 00106" 


833 
83 4 




BRM 


SKP 






01372 




" HIT 


RELM 






01373 


61 00021 


835 




MIN 


RERR 


SET R FLAG 


r 


01374 


75 00041 


836 


FR3 


LDB 


Z 




& 


■f- 01375 


71 00027 


837 




LDX 


CNT2-X0 




H 


w 01376 
01377 


2 6600 000 


838 




RSH 


0,X2 


LEFT ADJUST IN B 


2 


1 72 00041 
" 01 14 23 


839 
"84 0" 




SKE 

"~ BRU 


Z 

F'R6 







01400 






01401 


76 00041 


.841 


FR1 


LDA 


Z 






01402 


71 00026 


842 




LDX 


CNT1#X0 






01403 


2 6700 000 


84 3 




LSh 


0*X2 






01404 


16 00145 


844 




MRG 


U9RD 


INSERT FIELD IN UORD 




01405 


35 00145 


845 





STA 
LDA 


WORD 






01406 


76 00026 


846 


CNT1 






01407 


54 00027 


847 




SUB 


CNT2 


DECREMENT BITS LEFT 




01410 


35 00026 


848 




STA 


CNT1 




O 


01411 


7 6 0015C 


849 




LDA 


TERM 






01412 


1 72 00061 


850 




SKE 


CCHR 


TEST F6R COMMA 




01413 


01 01415 


851 




BRU 


FR5 


EwD 6F REFERENCE 




OQ 


01414 


01 01355 


852 




~B~RTJ 


FK4 


KKOCtSb NtXf hltLU 


2 


01415 


76 00147 


853 


FR5 


LDA 


URD1 




O 


01416 


35 00146 


854 




STA 


URD2 


SFT F8RM FOR PRINTING 


O 


01417 


76 00066 


855 




LDA 


BO 







01420 


53 00030 


856 




SKN 


CNT3 




01421 


35 00146 


8 5 7 




STA 


URD2 


TjQ MANY FIELDS TO EDIT 






01422 


01 00425 


858 




BRU 


LIN8 




01423 


1 72 00117 


859 


FR6 


SKE 


Ml 


OQ 
(0 


01424 


61 00022 


860 




MIN 


TERR 


M 


01425 


43 01432 


861 




BRM 


SKB 


W 


01426 


00 00066 


862 




HLT 


BO 





01427 


53 00117 


863 




SKN 


Ml 


w 


01430 


61 00022 


864 




MIN 


TERR 


u* 


01431 


01 01401 


865 




BRU 


FR1 




v 01432 


00 00000 


866 


$SKB 


HLT 






01433 


1 77 01432 


867 




XMA 


SKB 




01434 


0- 55 01444 


868 




ADD 


IND1 




01435 


1 77 01432 


869 




XMA 


SKB, 




01436 


46 00014 


870 




\ XAB 






01437 


72 1 0143? 


871 




SKA 


*SKB 




01440 


U 01 01442 


872 




BRU 


$ + ? 




01441 


61 01432 


873 




MIN 


SKB 




01442 


46 00014 


874 




XAB 




C 


01443 


51 01432 


875 




BRR 


SKB 


s 


ik. 014 4 4 

CO 


00 1 00001 


87 6 


IND1 


HLT 


*1 






877 


$Ml, LINE, 90 


,P14,BCIF,SPAC,TEXT1,M23 


Oi 


— ■ - : — 


878 


SIERR 


,INR1, 


DLBL,FRM4,XFLG # 9PD1 


o 




879 


$B11# 


C3 










880 




END 






01445 


00177750 


» 






' 




01446 


07700000 












01447 


00040000 












01450 


00077777 












01451 


00000073 












01452 


00007777 












01453 


00002140 










o 


01454 


00000036 










E 


01455 


00000067 










01456 


01010101 








. 


« 


01457 


00177774 










al 


01460 


00002040 








- 





01461 


00177770 










o 


01462 


00006060 










J— 


00056 






MT 






O 


00057 






MTE 






<JI 



00221 


SCNX 


P 


00223 


SCIX 


fl) 


00225 


L6P 


N 


00227 


LITM 


*>> 


00235 


MLOC 


O 

Ml 


00236 


ALN 


N 


00730 


SCALE 


<Jl 


00256 


EDCT 




00257 


READ 




00307 


FLD 




00524 


SYM 




01175 


CHR 




01032 


GET 




00300 


SMI 




00301 


LSYM 




00553 


SRCH 




00304 


pepi 


H 


00651 


NSRT - 


fe 


^ 00343 
co 00576 


P5PR 


H 

M 


FSRCtfl 


2 


°" 01365 


SCNL 





00356 


NAB 




00361 


ADDR 




00451 


EOD 




00372 


E6M 




00405 


INDB 




01370 


SCAN 




00415 


XMSK 




00423 


INST 




01312 


EDIT 


O 


01210 


PRNT 


P 

*-> 

O 


00460 


SKSEQD 


00462 


ESDI 


W 


00521 


CTT 


2 


01166 


DLY1 


O 

• 


01205 


EDTV. 


O 


00654 


ECE 




01272 


H6MF 






01217 


NAXL 


Ul 



1 ? 5 3 
007 31 
007 32 
007 72 
01056 
010 6 4 
01071 
1 7 7 1 
0117 
01241 
01246 

P l 2 Z_ 3 

"0 1 3 5 5 
1 3 6 J. 



ET-TL 

D P w* K 
DECU 
E*DSI 
E^r?c 
U ~ C 
9U1P 
ChUF 
EREF1 
EPEF2 
^E8F 
FLDC 
AG 



CO 



pj 

OP 

n> 



to 



o 



o 



o 

o 



IV) 

o 
o 
<J1 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 012009 



IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



900 Series SYMBOL Part II 



SDS 



January 15, 1965 



Any SDS 900 series computer with at least 4K memory. 

Perform search, insert and scan (and evaluate) the operand 
field of a SYMBOL line. 



PROGRAMMED 
OPERATORS: 



STORAGE: 

TIMING: 

USE: 



CAB, CBA, CAX, CXA, CBX, CNA, SKE, SKR, MUL, 
DIV, ADM, XMA 

02103 locations including constants 



N/A 



SYMBOL consists of three parts (separately assembled 
programs) plus a mnemonic table plus I/O subroutines. 

Part II performs the table manipulative functions (search, 
insert and move) for the four item tables: mnemonics, 
symbols, references and literals. In addition, Part II 
scans and evaluates operand field expressions. 

Subroutines: 

The following subroutines are documented in the order of 
their appearance within SYMBOL Part II. 



CNVRT 


GNF 


SCI 


DECW 


MAXL 


SCNL 


DPA 


MOVE 


SCNM 


DPMT 


NSRT 


SCNR 


DPNM 


OCT W 


SR.CH 


DPSS 


SCAN 


SSIGN 


DPW 


sec 


SYM 
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USE: (Cont) 



SCNL 



Scan literal 



BRM SCNL with same conditions as 
SCAN 

return with same conditions as SCAN 

Scans address field. Will accept literal or 
reference as result. Uses SCAN, SCNM, SCNR 
and GET subroutines. 



SCNM 



Insert literal 



BRM SCNM with literal in A, B 

return with address of literal in A if pass 
two 

If pass two and literal is not in table, the literal 
will be inserted. Uses SRCH subroutine and 
uses MOVE if literal has to be inserted. 



SCNR 



Scan reference 



BRM SCNR 



with same conditions as 
SCAN 



SCAN 



return with same condition as SCAN 

If pass two, and address consisted of one symbol 
which was not found (VERR contains non-zero) 
and no connectors were present (CHR1 contains 
zero), address is considered to be an external 
reference. If reference was not previously in 
table, it will be inserted. Uses SCAN and if 
reference uses SRCH and if new reference, 
uses MOVE. 

Evaluates symbolic expression 

BRM SCAN with first character of 
expression in CHR return with value of 
expression in A and in VALU and mode of 
expression in B and in MODE. 
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USE: (Cont) Upon exit from SCAN, the character following the 

character which terminated the expression will be 
in CHR. The character which terminated the 
expression will be in TERM. 

The SCAN routine uses the subroutines: 

SCI unless first character of expressor 
terminates expression 

SCC unless first character of expressor 
terminates expression 

If a connector (other than a terminator) was 
encountered, CHR1 will be nonzero. 

SCI Evaluates an item 

BRM SCI with first character of item 
in X2 

return with value of item in A, mode of 
item in B 

Upon exit from SCI, the first character following 
the item is in CHR. 

The SCI routines uses the following subroutines: 

GET 

TCHR 

CNVRT if the item is octal or decimal 

SRCH if the item is symbolic 

SCAN if the item is subexpression 

SCC Evaluates a connector 

BRM SCC with first character of 
connector in X2 

return with code for connector in A (MODE 
is merged to A) 
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USE: (Cont) Upon exit the first character following connector 

is in CHR. SCC uses the GET subroutine. 

The following code is used for connectors: 

Operations Terminators 



10 ++ 


00A 


11 -- 


01 , 


22 ** 


02 ) 


33 + 




34 - 




45 * 




46 / 




47 // 




50 *+ 




51 */ 





SYM Collects a symbol 

BRM SYM with first character of 
symbol in CHR 

return -with first word of svmbol in SMI and 
A, second word of symbol in SM2 and B 

Upon exit from SYM, the character following the 
symbol is in CHR. Sym uses the TCHR 
subroutines. 

SRCH Search table for item 

BRM SRCH with location if key in A, 
location of table packet 

(see MOVE subroutine description) in B 

return if no match is found 

return if found 
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USE: (Cont) If item is found the location of the item is in X2, 

the second word of the item is in B and the third 
word of the item is in A. If item is not found the 
location of the item with the largest key less 
than the key given is in X2. 

NSRT Insert label subroutine 

NSRT is used to insert an item in the mnemonic 
table (for FORM and OPD labels), the symbol 
table, the reference table, or the literal table. 
First the item is searched for and one of the 
following is done: 

1. If pass 1 and the item was not found, the 
item is inserted by using the MOVE 
subroutine. 

2. If pass 1 and the item was found and is not 
identical to the item to be inserted, the 
duplicate flag is set and the new item is 
discarded. 

3. If pass 2 and the item was not found, there 
was a program or machine error. 

4. If pass 2 and the item was found, the 
duplicate flag is checked and if set, the 
duplicate error is set. 

NSRT is entered with the location of the item in 
A and the location of the table packet (see MOVE 
subroutine description) in B. The SRCH and 
MOVE subroutines are used. 

Calling sequence is: 

BRM NSRT with A and B as specified 

return 
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USE: (Cont) MOVE Move item into table subroutine 

Tables are described by a six-word packet as 
follows: 

Packet Origin B Base of table = location of 

first item in table minus 3. 

+ 1 F Location of first item to be 

compared when doing binary- 
search. 

+ 2 m Initial increment for binary- 

search. 

+ 3 M Mask for masking second 

word when searching. 

+4 n If there are k entries in the 

table, n = 3k - m. 

+ 5 T Type + if table expands up, 

- 1 if table expands down. 

If there are k entries in the table: 



flog 2 k 



m = 3*2 
n = 3 ; '''k-m 
F = B+n+3 

There is a packet for each table, specifically: 

TPM Mnemonic command table packet 

(up from S5) 

TPS Symbol table packed (down from 

end of memory) 

TPR Reference table packet (down 

from end of symbol table) 

TPL Literal table packet (up from end 

of mnemonic command table) 
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All items are three words. MOVE is entered 
with the location of the item to be inserted in 
L.KI, the location of the packet for the table in 
which to insert in LKT and the location of the 
item which is to precede the item being inserted 
in X. MOVE will move part of the table up or 
down (depending on T), insert the item, and 
modify the packet as required. 

Calling sequence is: 

BRM MOVE with X as specified 

return 

CNVRT Convert 4 characters 

BRM CNVRT with 4 six bit characters 

in A 



return with binary integer in A 

The conversion will be from decimal if X2 
contains 0, and from octal if X2 contains 3, 



SSIGN 



Set sign 



BRM SSIGN with possible sign character 
in CHR 



DPMT 



return 

If CHR contains a minus sign, SIGN will be set 
to -1. Otherwise, SIGN will contain zero. If 
contents of CHR was " + " or "-", this character 
will be skipped. Uses GET subroutine if CHR 
contains " + " or "-". 

Double precision multiply by ten 

BRM DPMT with multiplicand in A, B 

return with product in A, B 
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DPA Double precision add 

BRM DPA with addend in A, B and 
original in WRD1, WRD2 

return with sum in A, B 

DPNM Double precision normalized multiply 

BRM DPNM with multiplicand in WRD1, 
WRD2 and multiplier in 
MULT1, MULT2 

return with product in A, B and WRD1, 
WRD2 

Operands must be normalized and result will be 
normalized. DPNM uses the DPA subroutine. 



DPW Double precision word 

BRM DPW with first character of 
constant in CHR 

return with result in A, B and in WRD1, 
WRD2 

This subroutine computes a fixed or floating 
constant. The contents of SCALE determine the 
implied binary scaling (in case of no B or */). 
Upon exit from DPW, the character which 
terminated the constant is in TERM, and the 
next character is in CHR. Subroutines used are 
GET, SCI, TCHR, DPA, SSIGN, DPMT, SPNM, 
GNF, DPSS. 

DPSS Double precision set sign 

BRM DPSS with argument in A, B 

return with result in A, B 

If the contents of DPSIGN is negative, this sub- 
routine puts the negative of the argument in A, B 
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OCTW Evaluates an octal item 

BRM OCTW with first character in CHR 

return with value in VALU 

Upon exit the character following the item is in 
CHR. OCTW uses the GET, SSIGN, GNF, and 
TCHR subroutines. 



DECW 



Evaluates a decimal item 



BRM DECW with first character in CHR 

return with value in VALU 

Upon exit the character following the item is in 
CHR. DECW uses the SSIGN and TCHR 
subroutines. 



GNF 



Get next field 



BRM GNF 



return with blank or comma in CHR 



MAXL 



This subroutine will skip characters until a blank 
or comma is encountered. If the initial contents 
of CHR is not a blank or comma, the E error 
flag will be set. 

Compute maximum location counter value 

BRM MAXL 



return 

If the contents of LOC is greater than the contents 
of MLOC, the contents of LOC replaces the 
contents of MLOC. 



5-9 
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Q (CHR) : =) 




SCK5 




(a) ^LTRl) 



C (PASS):0^ 



> 



EXIT 





SCR2 



f(VERR):0^ 



MCHRO.-O^V- 



(VALU)— ^(a) 



EXIT, 




(a) 



\ < 








) 




(b) ■■-*■ vlikz; 
(LLTR)— ^(a) 
(LLT)— ^(b) 




1 


r.._ 



(2,X2)— ■►(a) 



SCK3T 



{^g) 



SCK2 



0— *~(b) 



(LADD) — »~(LTR3) 
(LADD) + 1 »~(LADD) 

| MOVE | 

(LTR3)— •►(a) 



((o)A2 15 :o) 



(b) 



(a) A (ADDR)-»-( a ), (VALU) 
(b) MMODE) 



EXIT , 




*f (PASS):o\-^- 



Set X error 

(LSYM) —(a) 

(LRT)— —(b) 



EXIT, 




SCR3 



(a) *~SM1 



MOVE 



MM. 



( ^^ 



SCR4 



(a)A(ADDR) — -►(VALU) 
(b)— *- (MODE) 
(LOC)— —(a) 
0200 —(b) 



1 



0202—— (b) 4 ^-Aa)A2 15 :0) 



^ 


(a)-*-(2,X2) 
(1,X2) A 077770000 
+ (b)— — (1,X2) 
(VALU) — —(a) 
(MODE) —(b) 







V 
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0— *-((LOP)),(VALU), 

(MODE),(CHRl) 
(CHR)— *~(X2) 



C 



(CTT,X2)A(IC):0 



SCN8 



> 



sec 



( a ) — »-(MODE) 



SCN7 



07000 -*-(b) 



c 



(a): ((LOP)) 



y 



SCNl 



(CHR) — *>( a ),(X2) 
| SCI 



(a) -^(VALU) 

(b) — *-(MODE) 
(CHR)— *-(X2) 




(LOP)-l — »-(LOP) 
(LITM)-l— *-(LITM) 
(MODE) — »-(a) 



SCN2 



f (a) A (b): ((LOP)) \ 

~3_ 



((LOP))-*~(a) 



(LOP) + l —»-(LOP) 
(LITM) + 1 -»-(LITM) 
(MODE)— »-(( LOP)) 
(VALU)— »-((LITM)) 




c 



SCN11 



c 



(TERM):) 

1 



c 



(SCNX):(LSXT) 



I 



(a)A(b):0 



SCN14 



(VALU)— *►(«,) 



VEX IT 




SCN13 



Set P error 



> 



>^C 



(MODE)A077-*-(b) 



f (a) A 07000 .-05000 J 1 * > (a) A 0700 — »-(a) 



((a)A01700)x2"-r^(X2) 
((LOP))— ^(b) 
Reset overflow 
((UTM))— —(a) 



( (SCN5,X2)J 



SCN5 CLS 

SCN5+1 CLD 

SCN5+2 CLP 

SCN5+3 CAS 

SCtf5+4 CAD 

SCN5+5 CAP 

SCN5-*tS CXQ 

SCN5+7 CEQ 

SCN5+6 CDS 

SCN549 CBS 



(TERM):) 



> 
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(SM2) -—(b) 
(a)-*— (SMI) 
Cycle left 6 

(a)V(SMl) -—(a) 



c 



(CNTR):0 W 



!> 



3 — *- (X2) 



^Any8or9yifL 



Yes 



Set E 



SetT 



(a) -—(SMI) 

(b) — (SM2) 
(SC) —(b) 



I 



(CNTR)-l 
-— (CNTR) 



■ C( tchr ) ) 

_r_ 



SCIT2v 



SCIT4 



<: 



(CHR2)A(OCTF) 



±> 



-— (X2) 



No 



(At least A Yes 
alphabetic/ I k 



SCIT6 



(SMI) —(a) 
(SM2) -—(b) 
(CNTR)-l -MCNTR) 



Cycle left 6 
(a)V'A — (a) 



SCIT5 



/(CNTR):0 J 



(SM2) -—(a) 

[CNVRTl 

(a)x 2x(K3,X2) 
— — (SM2) 




(a)A077770000 -— (SM2) 
( b ) _^(SM1) 
(LSYM) -—(a) 
(LST) —(b) 



^ (a)i0 ) 



Set D error 



«*— ^"((b) A 01 00: CM 



(b)A077 -—(b) 



(SMI)— (a) 



CNVRT 



Reset overflow 

(a)+(SM2)— —(a) 



c 



I 



(b)A: 



#/overflov/Vy#. -»~(b) 



Yes 



Set T error "" 



2:0 J^— ► (a)A(ADDR) -*-(a) 



\EXIT / \EXIT / \ / 
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|TV* 





(IFLG) + 1 ^*-(IFLG) 



( wo > 



I GET 



—(ob) 



0— -~(a) 



SCA2 



(a) "-(VALU) 



GET 



O /L\ 



( (a); 014 J ^ 



V 



(a)x2°V(CHR)— — (a) 



C 



I 



(a) A 077000000 



SCAT 




D- 




C 



(SCNO) : (SCNX) 



SCX1 \ r 



J 



Set P 



V SCX2 



GET 



Set T error 



(VALU) »-(a) 



(SCAN) »-((SCNX)) 

(SCI) *~((SCIX)) 

(SCIX) + 1 MSCIX) 

(SCNX) + 1 ■►(SCNX) 

(LOP) + l »-(LOP) 

(LITMJ + 1 *-(LITM) 

I scan! 



(SCNX)-l — »-(SCNX) 

(LOP)-l ^(LOP) 

(LITM) - 1 *-(LITM) 

(SCIX) - 1 **<SCIX) 

((SCIX)) MSCI) 

((SCNX)) ^(SCAN) 

(VALU) —(a) 



V 



Branch to CTT, X2 




alphabetic 


SCS 


nonzero digit 


SCD 


zero 


SCO 


asterisk or dollar 


SCL 


quote 


SCA 


left parenthesis 


sex 
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C 




{CTT,X2)A(CC):0 



> 



f 1 



SCC1 t 



(X2) m+ a ) 



( M " > 



(a) — (CHRI) 



05000 •►(b) 



SCC8 



(b) »-<CNTR) 



(a) »-(TERM) 

Set E error 


1 GET | 




(MODE) 


— H«) 


n 



V 



SCC7 



(CTT,X2) (CNCT) 



G^> — 4 



(a) »-(CHRI) 

(CNCT)— »-(b) 



M 04522 — »-(CNCT) 



< 



(b) A 07000: 



SCC6 



qp — *-< 



(a):(CHRI). 



05100 »-(b) 



> 




-H SCC3 



o 



(X2) — •►(TERM) 



(b)x2? *-(b) 



SCC4 



GET 



SCC3 



I 



(CNCT) a 07700V (MODE) »~(a) 



V 
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SYM 



0— —(b) 



SYM2 



(a)— (SMI) 

(b) — (SM2) 

(SC)— (b) 



f TCHR V > 



SYM1 



(SM2)— — (b) 
(SMI) —(a) 



Cycle left 6 
(a)V(SMl) *-(a) 



(SM2)— —(b) 
(a) —(SMI) 



-< 



(b) A 07700 



S 



SYM4 



T *f (b) A 07700 : V^ * 



±D 



1 



Cycle left 6 
(a)VA — (a) 



Cycle right 12 
(a)-*~(SMl) 
(b)— — (SM2) 



X 
v 
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LK1 



(a) -»- (X2) 
-*-(a) 



((b) A -2; 0^) 



~^(ab) 
(LKS) -MX2) 



$ 




(LKI) + 1 — MLKI) 
((LKI)) -Mo) 
(LKI) + 1 — (LKI) 
((LKI)) -Mb) 



(a)-*~Mb) 



K 



0,X2)V0100— Ml,X2) 
Set D error 



(a):(2,X2) 



3 



\txn/ \exit/ 



LK7 



(b) + (LKS)— (a) 
1 



c 



LK4 



(X2) ~MLKS) 



(a):(KEYl) 



LK2 



I 



(a):(KEYl) 



LKJL 



(b)/2 -Mb) 
(0,X2) -Ma) 



J> 



(1,X2)A (LKM) —Ma) 



LK6 

c 



(a): (KEY 2) 



■c 



J> 



(a): (KEY 2) 



J 



(SRCH) + 1 — MSRCH) 
(1,X2) -Mb) 
(2,X2) -Ma) 



X 
V 
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(LIMT) + 3 — — (LIMT) 



C 



(LIMT) 



±> 




(X2) — —(LKP) 
(LKT)— — (X2) 

(LKP)V2 22 — — (o) 



MOV1 



^(5,X2):0 y 



(a) A 020037777 — — (LKS) 

■*| (a)+3 — (LKM) 

(0, X2) + (2, X2) + (4, X2) - (LKP) — — (a) 



(a) — — (LKM) 

(a) + 3—— (LKS) 

(0, X2) - (LKP) - 1— — (X2) 



MOV2 j 



MOV3 



((LKS)>— — ((LKM)) 
1 



(X2) + 1 — (X2) 



c 



MOV7 



(a):0 



- ^ (X2)i0 ) 



MV1 



- 3 — (X2) 

(LKS) - 3 —(LKP) 



MOV4 j 



MOV6 4 



y 



( a )v2ii-^ (X2) 



T-* 



((LKS)) — ((LKM)) 

(X2)-1 — — (X2) 



^ (X2);0 ^»- 



(LKM) + 1 — (LKS) 



((LKI))— —((LKS)) 

(LKI) + 1 —(LKI) 

(X2) + l — (X2) 



-c 



(AZ) : u i— 



(LKT) — (X2) 

(4,X2) + 4— (4,X2) 



C 



MOV5 



(2, X2) : (4, X2) 



MOV8 



(l,X2) + 3— (1,X2) 



y 



(a) + (4,X2) — (2,X2) 

-H — »"(4,X2) 

( 0/ X2)— (a) 



■^(5,X2):0 J 



Q (5,X2)=0^ 



"* (a) + 3— -(o) 



(0,X2) —(a) 



MV3 



(LKP) — (X2) 



MYL 



(a) -3 — — (0,X2) 



(a)— (1,X2) 



V 
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a) ■►(VALU) 

a) A 077007700 — *► (a) 

a) x (Kl, X2) + (VALU) — (a) 

a) HVALU) 

a) A 077770000 — ■►(a) 

a) x (K2, X2) +■ (VALU) —(a) 



V 




(CHR)— -*-(a) 
(a) — *► (TERM) 
— *-(SIGN) 



I 



Q (a) - ^-» -1 — 



SSIGN1 



c 



(SIGN) 



(a): + 



SSIGN3 



> 



V 




(b) — (WORD) 

(a)xlO— — (b) 
(WORD) — — (a) 
(b) — — (WORD) 

( a ) x 10 m-(ab) 

Reset overflow 

(a) + (WORD) — —(a) 



S SIGN2V 



GET 



C"~^ \Yes I 
Overflow 1 ► Set T error 

X x 

\EXIT/ \EXIT/ 




(a)- 
(a)A' 



■•►(TEMP) 
2— Ma) 



Shift (ab) right 1 
(a) + (b)^— (a) 
Shift (ab) right 23 
Reset overflow 
(a) + (TEMP) + (WRDl)- 



(a) 



C7. 7\Yes 
Overflow I 



No 



Set T error 



Xexit/ \ exit/ 




(WRD2) — -►(WORD) 

(WRDl)x(MULTl) — (ab) 

(a) — — (WRD1) 
(b) — — -(WRD2) 

(a)x(MULT2) —(ab) 

Right shift (ab) 23 - 

I DPA I 



(a) — (WRD1) 

(b) MWRD2) 

(WORD) —(a) 

Shift (a) right 1 

(a)x(MULTl) — (ab) 

Shift (ab) right 23 

I DPA I 



(a) 
(b)- 



-(WRD1) 
-(WRD2) 

V 
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DPW 



(SCALE) — -— (BEXP) 
— — (WRD1),(WRD2) 
-1 — *-(FFLG),(DEXP) 



SSIGN 



(SIGN)— -—(DPSIGN) 



DPW2 



I 



DPW4 



(a)— (X2) 
(DC)— —(b) 
T 



< 



*( (b)A(CTT,X2) 



CE> 



? 



(FFLG) + 1 — — (FFLG) 



DPW2 



DPW1 

(CHRH«*-(WRD2) 
(a)— (b) 
— ( . 

| DPMT | 

I DPA I 



-^/(DEXP):0 J 



(DEXP) + 1 — — (DEXP) 



(a)— *-(WRDl) 
(b) — — (WRD2) 



±J 



—(a) 



*-Hg 



TCHR 



3> 




♦I DPW3 



(DC) — (b) 



-(DEXP). 



— *-(a) ■*— ^(DEXP).-O J 



(a)— (DEXP) 
(CHR) — (a) 



DECK4 



DECK3 



y, >. UC^N4 

(DECK5H ^C (a):* )* *-C (a):B "\ 



DECK2 



G 



DECK6 



GET 



I GET | 



j DECW | 



-(a) —(a) 



):/ 



KE. ) 



GET 



SCI 




DECK6 



GET 



SCI 



-GED 



(a) +(DEXP) 

—(DEXP) 

(CHR)— (a) 



GET 



DECW 



DECK8 



(a)— (BEXP) 
-1 — »-(FFUG) 
(CHR)— (a) 
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(WRDl) — M°) 
(WRD2) — Mb) 
— — (X2) 
normalize 

(a) ——(WRDl) 

(b) — —(WRD2) 
(X2) -— (a) 



DPW20 




(CHR) -—(TERM) 
iGiTI 



GNF 



(WRD2) -— (b) 
(WRDl) -—(a) 



( (DEXP) : o\ 



24 + (a) — (°) 



Exponent and low order 
mantissa — MWRD2) 



Set T error 



(BEXP) + (a) — MBEXP) 



EXIT, 




DPW5 



.PPW5A 



(DEXP) —Ma) 
— — (DEXP) 



f(DEXP):0^-* (BEXP) +22 -— 



(BEXP) 



0— (b) 
-(DEXP)-— (a) 



DPW9 



DPW9I 



(BEXP) -46 -•►(BEXP) 
(DEXP) -Mo) 



(DEXP) 



c 



> 



(DEXP) 



< 



(DEXP) 



QZry 



DPW6 



(a) -9 — MDEXP) 
9 ——(a) 



(a)-MX2) 

(BEXP) - (a) —MBEXP) 

5< X2 > —(b) 

-— (a),(X2) 
normalize 

(a) -•►(WORD) 
(BEXP)-(X2) —■►(BEXP) 

22 

1 — (a) 

~—(b) 

(ab)/(WORD) —Ma) 
remainder — ^"(b) 

(a) -MMULT1) 

(b) -Ma) 
-—(b) 

(ab)/(WORD) — M°) 
( a) + l - ^( ) 

IDPNMI 



^> 



DPW1 j 



t> 



(WRDl) ——(a) 




DPF M- 



/(FFLG):0^ 



Reset 
overflow 



( (BEXP):0 y 



D£W12_ 



(ab)X2 



(BEXP) 



-(ab) 



f Overflow r 



No 



-(ja):(BEXP)^ 







Ldpss ! 


47 -— (X2) 

normalize 

(a) -MWRD1) 

(X2) —(a) 



(a) ——(BEXP) 
exponent to (a) 



■C (a):0 "^ 



* 



(a) + (BEXP)— (a) 



( ( °' ;9 > 



DPWinr 



(a) -9 -•►(DEXP) 
9-— (a) 



(a)— MX2) 

(BEXP) + (a) — —(BEXP) 

5< X2 > —(b) 
-—(a) 
47 -*► (X2) 
normalize 

(a) -*~(MULT1) 
(BEXP) + (X2) -•►(BEXP) 

(b) -— (MULT2) 



DPNM 



(ab)X2 



-(BEXP) _^ 



(ab) 



( Underflow J 



Yes 



Yes 



Set T error 



No 

— ► 



DPW13 



— — (ab) 



DPW14 



(a) ——(WRDl) 




5-21 



900 SERIES SYMBOL PART II (cont.) 




((DPSIGN):0)-*-» ff7*^ (b ( a ) » C (b): ° y ^ (a)-l— *-(a) 



V 



(a)V-l —(a) 

(a) —(WRD1) 

(b) — — (WRD2) 




V 



SSIGN 



Q (a)i7J^-¥ SetE 



OCT1 



V 



(a)— ^(VALU) 
(OQ— — (b) 



I 



No 



Set T error 

— z — 



I Overflow V 



Yes 



OCT2 



CEO 
I 



(VALU)x 8 + (a) — (a) 



(a) — (TERM) 
GET | 



GNF 



(VALU)V040000000 
——(a) 
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01025 





76 





01016 


565 CBS 


LDA 


VALU 


01026 





53 





01025 


566 


SKN 


VALU 


01027 





01 





01043 


567 


BRU 


CBS1 


01030 


1 


71 





00000 


568 


CNA 




01031 


1 


66 





00000 


569 


CAX 




01032 





75 





00120 


570 


LDB 


Z 


01033 





76 


1 


00004 


571 


LDA 


*LITM 


01034 


2 


6600 


000 


572 


RSh 


0*X2 


01035 





4 3 





00713 


573 


BRM 


SKB 


01036 





00 





01017 


574 


HLT 


Ml 


01037 





73 


1 


00004 


575 


SKG 


*LITM 


01040 





01 





00772 


576 


BRU 


CAP1 


01041 





55 





00066 


577 


ADD 


ONE 


01042 





01 





00772 


578 


BRU 


CAP1 


01043 


1 


66 





00000 


579 CBS1 


CAX 




01044 





75 





00120 


580 


LDB 


Z 


01045 





76 


1 


00004 


581 


LDA 


*LITM 


01046 


2 


6700 


000 


582 


LSH 


0,X2 


01047 





01 





00772 


583 


BRU 


CAP1 


01050 





00 





00000 


584 $SYM 


HLT 
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i 

GO 
00 



01051 





75 





00120 


01052 





35 





00035 


01053 





36 





00036 


01054 





75 





00467 


01055 





43 





00470 


01056 





01 





01067 


01057 





75 





00036 


01060 


1 


77 





00035 


01061 





43 





01035 


01062 





00 





00025 


01063 





01 





010*77 


01064 





6720 


006 


01065 





16 





00035 


01066 





01 





01052 


01067 





75 





00036 


01070 





76 





00035 


S1071 





43 





01061 


01072 





00 





00025 


01073 





01 





01077 


01074 





6720 


006 


01075 





16 





00532 


01076 





01 





01071 


01077 





6620 


014 


^01100 





35 





00035 


01101 





36 





00036 


01102 





51 





01050 


01103 





00 





00000 


01104 





35 





00042 


01105 





36 





00046 


01106 


1 


66 





00000 


0il07 


2 


76 





00000 


oino 





35 





00040 


01111 


2 


76 





00001 


01112 


1 


70 





ooooo 


01113 


2 


14 





00003 


-01114 





35 





00041 


01115 


2 


76 





00000 


01116 





35 





00045 


01117 


2 


76 





00001 



585 
586 
567 
586 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
6C0 
601 
6C2 
6C3 
604 
605 
606 
6C7 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 



SYM2 



SYMl 



SYM4 



SYM3 



SSRCh 



LDB 


I 


irr""~ 


SMI 


STB 


SM? 


LDB 


SC 7 


BRM 


TCHR 


BRU 


SYMl ; 


LDB 


SM2 


XMA 


SMI 


BR* 


S<B 


HUT 


-6-2: SC 


BRU 


SYM3 


LCY 


6 


MRG 


SMI 


BRU 


SYM2 


LDB 


SM2 


LDA 


SMI 


BR+1 


SKB 


HLT 


-££ 5C 


BRU 


SYM3 


icy 


6 


MRG 


BCHR 


BRU 

orv 


SYM4 


_K£JL . 




ST* 


SMI ~~ 


STB 


SM2 


BRR 


SYM 


HLT 





ST* 


LKI 


STB 


LKT 


CAX 




LDA 


0*X2 


STA 


KEY1 


LDA 


1#X2 


CBX 




ETR 


3#X2 


STA 


KEY2 


LDA 


0*X2 


STA 


LKS 


LDA 


1#*2 



A4 



i? 



TEST FOR SYMBOL ChAR 
END SYMBOL 



. LS tf O 



EXIT 

SAVE ITEM LQC 
SAVE PACKET LOC 
LOC OF ITEM 



STORE KEY 

T = END OF TABLE 

S = T 

F * LOC OF 1ST ITEM 
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Oil 


L20 


2 


75 





00003 


624 




LDB 


3.X2 


Oil 


L21 





36 





00043 


6.25 




STB 


LKM 


Oil 


122 


2 


75 





00002 


626 




LDB 


2*X2 


on 


123 





01 





01132 


627 




BRU 


LK1 


Oil 


[24 





6600 


001 


628 


LK3 


RSH 


1 


on 


125 


2 


76 





00000 


629 




LDA 


0*X2 


Oil 


126 





7 3 





00040 


630 




SKG 


KEY1 


Oil 


127 





01 





01142 


631 




BRU 


LK2 


on 


L30 


1 


65 





00000 


632 


LK7 


CBA 




on 


131 





55 





00045 


633 




ADD 


LK.S 


on 


132 


1 


66 





00000 


634 


LK1 


CAX 




on 


133 





76 





00120 


635 




LDA 


Z 


on 


134 





4 3 





01071 


636 




BRM 


SKB 


Oil 


L35 





00 





00100 


637 




HLT 


M2 


Oil 


136 





01 





01124 


633 




BRU 


LK3 


Oil 


137 





46 


30003 


63 9 




CLR 




Oil 


140 





71 





00045 


640 




LDX 


LKS,X0 


on 


141 





01 





01153 


641 




BRU 


LK5 


on 


142 


1 


72 





00040 


642 


LK2 


SKE 


KEY1 


on 


4 3 





01 





01155 


643 




BRU 


LKd 


Oil 


144 


2 


76 





00001 


644 




LDA 


1»X2 


Oil 


145 





14 





00043 


645 




ETR 


LKM 


Oil 


146 


1 


72 





00041 


646 




SKE 


KEY2 


on 


L47 





01 





01154 


647 




BRU 


LK6 


or 


150 





61 





01103 


648 




MIN 


S'RCH 


01 


151 


2 


75 





00001 


649 




LDB 


1*X2 


01 


152 


2 


76 





00002 


650 




LDA 


2*X2 


01 


153 





51 





01103 


651 


LK5 


BRR 


SRCH 


01 


154 





73 





00041 


652 


LK6 


SKG 


KEY2 


01 


L55 





37 





00045 


653 


LK4 


STX 


LKS,X0 


01 


156 





01 





01130 


654 




BRU 


LK7 


01 


157 





00 





00000 


655 


SNSRT 


HLT 





01 


160 





43 





01103 


656 




BRM 


SRCH 


01 


161 





01 





01201 


657 




BRU 


NS3 


01 


162 





61 





00042 


658 




MIN 


LKI 


01 


L63 





76 


1 


00042 


659 




LDA 


*LKI 


01 


164 





61 





00042 


660 




MIN 


LKI 


01 


L65 





75 


1 


00042 


661 




LDB 


*LKI 


01 


166 


3 


72 





00001 


662 




SKE 


1*X2 



MASK FeR 2ND KEY WORD 
I * INITIAL INCR 



K(X) 

COMPARE WITH 
K(L) GREATER 



K(L) 

OR EQUAL 



NOT FOUND 



KEYS 

2ND 

MASK 

TEST 

KEYS 

TAPE 

MODE 

VALU 

EXIT 

COMP 

K(L) 



NOT EQUAL 
WORD OF KEY 
OUT MODE 
FOR EQUAL KEYS 
NOT EQUAL 
FOUND EXIT 



ARE 2ND WORDS 
GREATER* S ■ X 



SEARCH FOR 
NOT FOUND 



ITEM 
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01167 
01170 
01171 
01172 
01173 
01174 
01175 
01176 
01177 
01200 
01201 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 
01233 
01234 
01235 



01 
46 
72 
01 
51 
76 
16 
35 
61 
51 
43 
51 
61 
51 
00 
76 
76 
53 
01 
37 
71 
76 
16 
53 
01 
35 
55 
35 
76 
54 
55 
66 
01 
76 
35 
41 
71 
76 
54 



01174 

00014 

00002 
01174 
01157 
00000 
00001 
00001 
00546 
01157 
01205 
01157 
00000 
01205 
00000 
00144 
00000 
01207 
01203 
00044 
00046 
00205 
00044 
00005 
01274 
00043 
00144 
00045 
00000 
00044 

02073 
00000 
01232 
00045 
00043 
01230 
02074 
00045 
00144 



663 




BRU 


NS1 




664 




XAB 






665 




SKE 


2 * X 2 




666 




BRU 


NS1 




667 




BRR 


NSRT 




668 


NS1 


LDA 


DUPM* 




669 




MRG 


1*X2 




670 




STA 


1#X2 




671 




MIN 


DERR 




672 




BRR 


NSRT 




673 


NS^5 


BRM 


MOVE 




674 




BRR 


NSRT 




675 


OFL0 


MIN 


0ERR 




676 




BRR 


MOVE 




677 


MOVE 


HLT 







678 




LDA 


P3 




679 




ADM 


L1MT 




680 




SKN 


LIMT 




681 




BRU 


OFL0 




682 




STX 


LKP.XO 




683 




LDX 


LKT,XO 




684 




LDA 


X2W 




685 




MRG 


LKP 




686 




SKN 


5#X2 




687 




BRU 


M0V1 




683 




STA 


LKM 




689 




ADD 


P3 




650 




STA 


LKS 




691 




LDA 


0*X2 




692 




SUB 


LKP 




693 




ADD 


-0177777 




694 




CAX 






655 




BRU 


M0V2 




696 


M0V3 


LDA 


*LKS 




697 




STA 


*LKM 




698 


M0V2 


BRX 


M0V3#X0 




699 


MV1 


LDX 


•00200000- 


•3#X0 


7C0 




LDA 


LKS 




7C1 




SUB 


P3 





1ST UORD NOT EQUAL 



2ND UORDS 
EXIT 



NOT EQUAL 



SET DUP FLAG 

SET DUP ERROR 

EXIT 

MOVE ITEM TO TABLE 

EXIT 



-<M«3) TO M 



LOCATION 

INDIRECT 



SAVE P 

PACKET 

CONSTRUCTION 

P,X2 

TYPE (UP OR DOWN) 

MOVE UP 

P*X2 (TO) 

P+3#X2 (FORM) 

P+3,X2 (FORM) 

B 

NO. OF 



WORD 



UORDS TO MOVE 



MOVE ONE UORD DOWN 3 
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STA 


LKP 


LDA 


*LKI 


STA 


*LKS 


MIN 


LKI 


BRX 


M0V4,X0 


LDX 


LKT,XO 


LDA 


P3 


ADM 


4,X2 


LDA 


2,X2 


SKG 


4,X2 


BRU 


M0V5 


SKN 


5,X2 


BRU 


M0V8 


LDA 


0*X2 


SUB 


P3 


STA 


0*X2 


BRU 


MV3 


LDA 


P3 


ADM 


1*X2 


LDX 


LKP,X0 


BRR 


MOVE 


LDB 


Z 


ADD 


4,X2 


STA 


2#X2 


STB 


4,X2 


LDA 


0*X2 


SKN 


5*X2 


ADD 


P3 


STA 


1#X2 


BRU 


MV2 


ADD 


B22 


ETR 


XADR 


STA 


LKS 


ADD 


P3 


STA 


LKM 


LDA 


0#X2 


ADD 


2#X2 


ADD 


4,X2 


SUB 


LKP 



Catalog No. 012009 



I 



01236 35 00044 

01237 76 1 00042 

01240 35 1 00045 

01241 61 00042 

01242 41 01237 

01243 71 00046 

01244 76 00144 

01245 3 76 00004 

01246 2 76 00002 

01247 2 73 00004 

01250 01 01263 

01251 2 53 00005 
0125? 01 01257 

01253 2 76 00000 

01254 54 00144 

01255 2 35 00000 

01256 01 01261 

01257 76 00144 

01260 3 76 00001 

01261 71 00044 

01262 51 01205 

01263 75 00120 

01264 2 55 00004 

01265 2 35 00002 

01266 2 36 00004 

01267 2 76 00000 

01270 2 53 00005 

01271 55 00144 

01272 2 35 00001 

01273 01 01254 

01274 55 00124 

01275 14 00034 

01276 35 00045 

01277 55 00144 

01300 35 00043 

01301 2 76 00000 

01302 2 55 00002 

01303 2 55 00004 

01304 54 00044 



7C2 
7C3 
704 
7C5 
706 
707 
7C8 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 



M0V4 



MV2 



M0V8 



MV3 



M©V5 



MOVl 



LOCATION OF INSERTED ITEM 
INSERT NEW ITEM 

PACKET LOCATION 

N+3 TO N 

M 

M:N 

M*N 

TYPE 

UP TABLE 

B-3 TO B 



F+3 T8 F 

LOCATION OF INSERTED ITEM 
EXIT 

M+N TO M 

TO N 

B 

B * 3 TO B 
B TO F 



CONSTRUCT INDIRECT UORD 
P+2,X2 (FROM) 

P+5,X2 (TO) 

B 

B + M 
B + M + N 
B+M+N-P 
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01305 





73 





00120 




01306 





01 





01315 




01307 





16 





02075 




01310 


1 


66 





00000 




01311 





76 


1 


00045 




01312 





35 


1 


00043 




01313 


2 


77 





37776 




01314 





41 





01311 




01315 





76 





00043 




01316 





55 





00066 




01317 





35 





00045 




01320 





01 





01233 




01321 





00 





00000 


• 


01322 





35 





01026 




01323 





14 





00026 




01324 


3 


74 





00060 


* 


01325 





55 





01322 


* 


01326 





35 





01325 


Oi 


01327 





14 





02064 


1 


01330 


3 


74 





00061 


* *° 


01331 





55 





01326 




01332 





51 





01321 




01333 





00 





00000 


* 


01334 





76 





00607 


* 


01335 





35 





00716 




01336 





75 





00120 




01337 





36 





00047 




01340 


1 


72 





00141 




01341 





01 





01345 


* 


01342 





75 





01036 




01343 





36 





00047 




01344 





01 





01347 




01345 


1 


72 





00160 




01346 





01 





01350 


* 


01347 





43 





00725 




01350 





51 





01333 




01351 





00 





00000 


* 


01352 





36 





00000 




01353 


1 


74 





00032 



741 




SKG 


Z 


742 




BRU 


M0V6 


743 




MRG 


«040000*/S9300 


744 




CAX 




745 


MOV 7 


LDA 


*LKS 


746 




STA 


*LKM 


747 




EAX 


-2,X2 


748 




BRX 


M0V7,X0 


749 


M0V6 


LDA 


LKM 


750 




ADD 


B23 


751 




STA 


LKS 


752 




BRU 


MV1 


753 


CNVRT 


HLT 





754 




STA 


VALU 


755 




ET* 


C02 


756 




MUL 


K1,X2 


757 




ADD 


VALU 


758 




STA 


VALU 


759 




ETR 


=077770000 


76 




MUL 


K2,X2 


761 




ADD 


VALU 


762 




BRR 


CNVRT 


76 3 


SSIGN 


HLT 





764 




LDA 


CHR 


765 




STA 


TERM 


766 




LDB 


I 


767 




STB 


SIGN . 


768 




SKE 


MCHR 


769 




BRU 


SSIGN1 


770 




LDB 


Ml 


771 




STB 


SIGN 


772 




BRU 


SSIGN2 


773 


SSIGN1 


SKE 


PLUS 


774 




BRU 


SSIGN3 


775 


SSIGN2 


BRM 


GET 


776 


SSIGN3 


BRR 


SSIGN 


777 


DPMT 


HLT 





776 




STB 


WORD 



NO. OF WORDS 
WORDS 



TO MOVE 



MOVE ONE UORD UP 3 



P+5,X2 
P*6,X2 



MASK 1ST AND 3RD CHARACTERS 
TIMES BASE - 64 



TIMES BASE 

RESULT 

EXIT 



SQUARED - 4096 



+ TO 
TEST 



SIGN 
FOR - 



- TO SIGN 



TEST FOR + 



779 



MUL 



P5 



SKIP + OR - 
EXIT 

LOU 

10*H0U TO B 
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780 


LDA 


WORD 


781 


STB 


U6RD 


782 


RCY 


1 


783 


MUL 


= 10 


784 


ROV 




785 


ADD 


WORD 


786 


OVT 




7S7 


MIN 


TERR 


788 


BRR 


DPMT 


789 DPA 


HLT 





790 


STA 


TEMP 


791 


LDA 


URD2 


792 


ETR 


M2 


793 


RSH 


1 


794 


ETR 


*037777777 


795 


STB 


TEMP+1 


796 


ADD 


TEMP+1 


797 


RSH 


23 


798 


ETR 


ONE 


799 


R©V 




8C0 


ADD 


TEMP 


8C1 


ADD 


WRDI 


8C2 


OVT 




803 


MIN 


TERR 


804 


BRR 


DPA 


8C5 DPNM 


HLT 





8C6 


LDA 


WRDI 


807 


LDB 


URD2 


808 


STB 


WORD 


809 


MUL 


MULT1 


810 


XMA 


WRDI 


811 


STB 


WRD2 


812 


MUL 


MULT2 


813 


RSH 


23 


814 


ETR 


ONE 


815 


BRM 


DPA 


816 


STA 


WRE1 


817 


STB 


WRD2 


818 


LDA 


WORD 
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* 


01354 





76 





01352 


* 


01355 





36 





01354 




01356 





6620 


001 




01357 


1 


74 





02076 




01360 





02 


20001 


* 


01361 





55 





01355 




01362 





40 


20001 


* 


01363 





61 





01015 




01364 





51 





01351 




01365 





00 





00000 




01366 





35 





00012 


* 


01367 





76 





00000 




01370 





14 





00100 




01371 





6600 


001 




01372 





14 





02077 




01373 





36 





00013 




01374 





55 





00013 




01375 





6600 


027 


Oi 


01376 





14 





00066 


I 


01377 





02 


20001 


CO 


01400 





55 





00012 


* 


01401 





55 





00000 




01402 





40 


20001 


* 


01403 





61 





01363 




01404 





51 





01365 




01405 





00 





00000 


* 


01406 





76 





01401 


* 


01407 





75 





01367 


* 


01410 





36 





01361 




01411 


1 


74 





00055 


* 


01412 


1 


77 





01406 


* 


01413 





36 





01407 




01414 


1 


74 





00056 




01415 





6600 


027 




01416 





14 





00066 




01417 





43 





01365 


* 


01420 





35 





01412 


* 


01421 





36 





01413 


* 


01422 





76 





01410 



L9W 

MJL CLEARS B23 

10*HIGH + CARRY 

SET TRUNCATION ERROR 
EXIT 



SET TRUNCATION ERROR 
EXIT 



X2 

XI TO A, SAVE H 
SAVE L 



AB ♦ HL Te AB 

SAVE H 

SAVE L 
X2 
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01423 6600 001 



en 
i 



01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 
0144 5 
01446 
01447 
01450 
01451 
01452 
01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 




1 



















1 







1 



1 














14 
74 
6600 
14 



43 
35 
36 
51 

00 
76 
35 
75 
36 
36 
75 
36 
36 
43 
75 
36 
72 
01 
61 
01 
55 
77 
46 
77 
43 
43 
35 
36 
53 
61 
75 
43 
01 
01 



02077 

00055 

027 

00066 

01365 

01420 

01421 

01405 

00000 

00052 

00051 

00120 
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00004647 


1114 


QC0N 


EQU 


04647 








1115 




END 




02064 


77770000 










02065 


00005000 










02066 


00001700 










02067 


10101010 










02070 


00000020 










02071 


00000061 










02072 


00005100 










02073 


00177777 










02074 


00177775 










02075 


00040000 










02076 


00000012 










0207 7 


27777777 










02100 


00000054 










02101 


77777722 










02102 


00000026 











ALWAYS SKIP 

EXIT 

TEST FOR BLANK 

ALWAYS SKIP 

EXIT IF BLANK 

ILLEGAL CHARACTER 



SKIP CHARACTER 



OLD MAX 



NEW MAX 



BLANK CONNECTER CODE 

* CONNECTER COM - 
) CONNECTER CODE 

+ ♦♦ CONNECTER CODES 

- — CONNECTER CODES 

* ** CONNECTER CODES 
/ // CONNECTER CODES 
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00014 TPL 

00217 LTR1 

00016 SOT 

02052 CHR 
02054 GET 
00260 PASS 
00223 LTR2 
00573 B8 
00747 RELM 
00575 ADDR 
02037' VALU 
00766 MODE 
00241 LADD 
00243 LTR3 
00543 VERR 
00263 XERR 
00265 LRT 
02061 LOC 

V 1 00274 REFM 

£3 01747 SK9 

00432 IC 

00363 LSXT 

02053 TERM 
00651 PERR 
02047 Ml 
02051 EERR 
00533 CNTR 
01054 SC 
02017 TCHR 
00476 DLY1 
00503 6CTF 
02031 TERR 
02046 BCHR 
00541 LST 
01177 DERR 
00673 SCHR 
00661 CC 
00566 IFLG 
00741 RERR 



Cn 
I 

Oi 
CO 
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01174 DUPM 

01203 ©ERR 

01210 LIMT 

01622 UGRD 

01754 WRD2 

01753 URD1 

02016 DC 

01765 ec 

02043 CCHR 



SCIENTIFIC DATA SYSTEMS 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 
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IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURA TION : 

PURPOSE: 

PROGRAMMED 
OPERATORS: 



STORAGE: 

TIMING: 

USE: 



900 Series SYMBOL Part III 

SDS 

January 12, 1965 

Any SDS 900 series computer with at least 4K memory, 
Perform input/output editing for SYMBOL. 

CAB, CBA, CAX, CXA, CBX, CNA, SKE, SKR, MUL, 
DIV, ADM, XMA 

0725 locations including constants 

N/'A 

SYMBOL consists of three parts (separately assembled 
programs) plus a mnemonic table plus I/O subroutines. 

Part III performs the following functions: 

Edit the symbolic input line. 

Edit the listing output image. 

Set up the binary output record and checksum. 

Flush the output records. 

The following subroutines are documented in the order of 
their appearance within SYMBOL Part II. 



EDC 




EDE 


ELN 


EDF 


FLD 


EDIT 


FLDC 


EDL 


FLUSH 
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USE: (Cont) 



EDR 


GET 


EDS 


OUTP 


EDTL 


RESET 


EDTV 


TCHR 



EDC 



Edit character subroutine 



Inserts the character in A into the line 
image. Steps the line image character 
position. The current position in the line 
image is specified by: 

EXW contains location of current 

word 

EDCX contains current character 

Calling sequence: 

BRM EDC with character in A return 



EDS 



Edit set 



BRM EDS with initialization word in A 



return 



ELN 



This subroutine sets the EDC subroutine to put 
the next character at a particular place. Bits 9 
through 23 of A indicate the word position and 
bits 6 through 7 indicate the character position 
(0 for first character, etc.). 

Edit line number 



BRM ELN 



return 



This subroutine adds one (alphabetically) to the 
alphabetic line number. The line number is 
stored in the line number field of the print 
image. 
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USE: (Cont) 



OUTP Output 



BRM OUTP 



with word in WORD, mode 
in WMOD 



return 



FLUSH 



Put word in output buffer. If buffer or if card 
type is changed (specified by contents of CTYP) 
empty buffer first. Uses FLUSH and RESET 
subroutines. 

Empty punch buffer 

BRM FLUSH 



return 

Outputs current object record. Uses WRITR 
subroutine. 

RESET Reset output buffer 

BRM RESET 

return 



FLD 



Initializes output buffer after initially or after 
buffer has been emptied. 

Position to next field 



BRM FLD 



return 



This subroutine skips up to eight blanks. If a 
non-blank is encountered, the subroutine will 
exit. 



GET 



Get next character 



BRM GET 



return with next input character in A, XZ, 
and CHR 
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USE: (Cont) TCHR Test character 

BRM TCHR with character type mask 
in B 

return if next character is not of proper 
type 

return if next character is of proper type 

Reads next character. This character is used 
as index to mask an entry in CTT (character 
translation table) with the contents of B. The 
GET subroutine is used. 

EDIT Edit form and print subroutine 

This subroutine edits the errors, location 
and the word in WORD according to the 
form in WRD 2 and prints the line image. 
The word is also placed in the punch buffer, 

The following subroutines are used: 

EDS 

EDE 

EDL 

EDR 

PRNT 

OUTP 

Calling sequence: 

BRM EDIT 

return 

EDTV Edit value and print subroutine 

This subroutine edits the error flags and 
the word in WORD and prints the line 
image. 
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USE: (Cont) The following subroutines are used: 

EDS 
EDE 
EDF 
PRNT 

Calling sequence: 

BRM EDTV 

return 

EDTL Edit location and print subroutine 

This location edits the error flags and the 
location counter and prints the line image. 
The punch buffer is emptied. 

The following subroutines are used: 

EDE 

EDL 
PRNT 

Calling sequence: 

BRM EDTL 

return 

EDE Edit errors subroutine 

The error characters are inserted in the 
line image if the corresponding flag is set 
(nonzero). Position is specified in EDWE. 
ERCC contains minus, the number of flags. 
The flags are reset. The error characters 
precede ERRC (one character per word). 
The flags corresponding to the characters 
precede VERR. 

The EDC and EDS subroutines are used. 
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Calling sequence: 

BRM EDE 

return 

EDL Edit location subroutine 

This subroutine edits the location counter. 
Position is specified in EDWL. 

The subroutines EDF and EDS are used. 

Calling sequence: 

BRM EDL 

return 

EDR Edit form reference subroutine 

The word in WRD1 is edited according to 
the form word given in WRD2 with blanks 
inserted between fields and the last word 
filled with blanks. 

The subroutines EDF, EDC and FLDC are used. 

Calling sequence: 

BRM EDR 

return 

EDF Edit field subroutine 

Edits the field given in AB. The first 
character is in A and the remainder of the 
field is left justified in B and the count of 
the number of characters in B (if any) is in 
CNTR. The number in B is binary and is 
edited in octal. 

The EDC subroutine is used. 
6-6 
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USE: (Cont) 



Calling sequence is: 



BRM EDF with first character in A, 
remainder of field in B 

return 



FLDC 



Field count 



BRM FLDC with form word in WRD2 

return if no more fields 

return with field count (in bits) in A and 
new form in WRD2. 
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900 SERIES SYMBOL PART 111 




EDCS 



(a)-A-— (a) 
-*-(b) 



EDC1 



(a)x12 



15 



-(a) 




(a) -»~(EDW) 
(=)/2' 5 - • 



EDCS+1 



Execute EDCS+i 

((EDW)) + ('a) -^((EDW))| EDCS +2 




(a)x2 12 -^(a) 



(a)x2° -*-(a) 



r 

V 



EDCS +3 




(a) + ((EDW)) -*~((EDW)) 
(EDW)+1 -»~(EDW) 



(A LN) + 0666667 — »► (a), (ALN) 
((a)A060606060)/8 — *-(a) 
((ALN)- (q))a 017171717 — *- (a) 
(a)— ^(ALN) 
-3 — *~(X2) 



ELN1 



c 



(a) A (ETBL,X2):0 



/ 



ELN2 



> 



V 

^ (X2)=0 ^»(ELN2 j \/ 



(a)V (ETBL-3,X2) — »-(a) 
(X2)+l — ^(X2) 



AAAA -»»(b) 
Cycle (ab) right 12 

(a) -»- (CBUF -2) 

(b) -^(CBUF-1) 



V 




— j 

(CHAR)+1 -•►(CHAR) 




7 -*-(TEMP) 



FLD1 



< 



GET 




I 



(TEMP):0^— I 



Q (a): A J ^-+ 



GETT + 3 



(b) -* 


-(TEMP) 


|GET| 




(TEMP) 


—-(b) 




(TCHR)+1 -*-(TCHR) 



V 



ML 



(b)A(CTT,X2) 



ID 



V 



GETT 




<o)/2' 8 


— (a) 


GETT + 1 


(o)/2 12 


— (a) 


GETT + 2 


(o)/2 6 


— (a) 



EXITi 




(TEMP)-l -*-(TEMP) 



EXIT> 





((CHAR)) -*-(a) 



GET5 



Execute GETT=j 



GET1 



(a) A 077 -*~(a), 
(X2), (CHR) 



V 
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040000000 — Mb) 



EDR3 V 



FLDC 



1 
EDR1 t 








|ede| 

(EDWV) — Ma) 
|EDS| 

7 — MCNTR) 
(WORD) x 8 M°b) 

(a)A7-»(o) 


I prnt| 




1 


1 



V 



(a)/3 —Ma) 
remainder to (b) 



( (b):0 ) ► 



(a)-l— Ma) 
3— Mb) 




[ID 

R5l1 



PRNT 



(EDWE) 

nan 




(VERR)+ (VERR)-*~(VERR) 
— »-(VERR) 
(ERRC) — MX2) 



V 



C 



EDE1 



(ERRC, X2) 



<a) 



C 



(VERR, X2) : 



(X2) 



jy 



T^GeO 



— MVERR, X2) 
(X2) + 1 MX2) 



V 







EDF2 






V- 




0— Ma) 

(ab) x 8 *► 

(ab) 






r 




EDF1 \ 




i 


i 




(b) — MWRD1) 

|edc| 

(WRDl) — Mb) 
(CNTR)-l 






^ 


*/(CNTR):0 


MCNT 


R) 




< 
1 


r 





V 



(WRD2)V040000000 

22 — MX2) 
normalize 
shift (ab) left 1 
(a) — MWRD2) 
(X2) + 1 MX2) 



►( (X2);0 ~y 



FLC1 U 



24-(X2)- 
(FLDC) + 1 



<a) 



(FLDC) 



V V 
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900 SERIES SYMBOL PART III (cont.) 




OUTP 



:= (CTYPE) 



C (DWC):0 J 

^(CTYP):(PTYP) \^ 



(DWC) : 24 



c 

^-C (PTYPE) 



>* 



d 



D 



(PLOC) + 1 : (LOC) 



^ 



OUTP1 




OUTP2 




S 
U 
B 


FLUSH 


" ^ 


S 
U 
B 


RESET 











3 J End Record with 
transfer address 
ENDM 



(WORD) := BRU 0, ++ (WORD) 
(QLOC):= (MLOC) 




= 



Data 
Record 




f PTYP = 1 or 2 A 



Yes 



Q (REL) = J 



Yes 



DATA 



(PLOC) := (LOC) 

(DW1 +(DWC)) :=(WORD) 

(REL) := (REL)+ + b> 22 (WMOD)*2 

(SREL) := I (24_DWC) + + (SREL) 

(PREL):= J v " '++(PREL) 

(DWC) := (DWC) + 1 



(22-DWC) 



G> 



(DW1 + (DWC)) := (REL), (DWC) := (DWC) + 1 







Q (SREL) = J 
Ino 



Yes 



(DW1 + (DWC)) := (SREL), (DWC) :=(DWC) + 1 




C PREL = J 



Yes 



O- 



(DW1 + (DWC)) : = (PREL), (DWC) : = (DWC) + 1 







RESET 


(QLOC) 


:=(LOC) 




(REL) := 







(SREL) := 


= 




(PREL) : = 


= 




(PTYP) : 


= (CTYP) 





FLUSH! 



(DWC) := (DWC) + 1 
CW 

I 



(CW) := (PTYP)*2 22 + + (DWC)*2 15 + + 






S 

u 

B 

R 


CHKSUM 
Compute 
folded 

checksum 














1 






(CW) : = 


(CW) 4.4-frHfcl 















6 






<D 



<D 



WRITR 

Write one 
record 



I 



(DWC) := 
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900 SERIES SYMBOL PART III (cont.) 



G 




i=4 ) End record, no 
transfer address 



ENDN 



as END record been output 



> 



Yes 



No 



(PTYPE) := 3 
(QLOC) := (MLOC) 



V 






(ICN) :=(DWC)-2 






1 


* 




(A) 


:= (CW)** 077770000 - - 077770000 



(A):=(A)--(DWl+i) 



:=i + l 



±ia. 



\i =QCN)) 



Yes 



(CHKS) := {(A) _ n --(A) 12 _ 23 }**07777 




e> 




i= 1 J External label 
ref . or def. 



DEF 



(DW1 +(DWQ) := 1st 4 chars, of label 
(DW1 +(DWC) + 1 := last 2 chars, of label 



(ICN) := (STYP)*2 



22 



(ICN) := (ICN) + + bits 6-23 of 3rd 
word of label item 



(ICN):=(ICN) + + bit 22 of 2nd 
word of label item 



DEF1 



(DW1+(DWC)+2):=(ICN) 



(DWC) :=(DWC)+3 



V 




i = 27 POP def . or external 
POP ref. item 



(WORD) := (CNTR) 

(DW1 +(DWC)) := 1st 4 chars, of label 

(DW1 +(DWC) + 1) := last 2 chars, of label 



(ICN) := 3d word of POP item 
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900 SERIES SYMBOL PART III (cont.) 

GLOSSARY OF TERMS AND SYMBOLS 

(a) = contents of register whose label is a 
(CTYP) = record type for current data word or symbolic item 
(WORD) = current data word or address of current symbolic item 
(LOC) = location (to be) of (WORD) at object time 
(WMOD)22 = 1 if (WORD) is load relocatable, if not 
(PMOD) = POP reference indicator for (WORD) 

J = 1 if (PMOD) / (means (WORD) > 77 ) 
J = if (PMOD) = 
(STYP) = if (CTYP) = 0, then (STYP) is special I/O relocation indicator 
I = 1 if (STYP) < 
1=0 if (STYP) ^0 
if (CTYP) > 0, then (STYP) = item type code (see description of Universal 
Binary Object Program format) 
(PLOC) = value of (LOC) on previous entry to OUTP 
(DWC) = number of data words in current record 
(MLOC) = 1 + maximum value attained by location counter 
(QLOC) = load address for first word of current data record 
(ICW) = location of current word in current record 
(PTYP) = value of (CTYP) on previous entry to OUTP 
(CHKS) = current checksum value 
(A) = contents of the A register 
(REL) = current load relocaction modifier word 
(SREL) = current special I/O relocation modifier word 
(PREL) = current POP relocation modifier word 

(CW) = control word for current record 
(DW1) = 1st data word of current record (DW1 = CW + 1) 

Permissible values of (CTYP) 

Binary 

Value Meaning in OUTP 

000 = Data Record item 

001 = external (label) reference or definition item 

010 = POP definition or external POP reference item 

011 = End Record with transfer address 
(100 = End Record with no transfer address)* 



* Converted to 011 on output. 
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o 
I 

CO 







1 


« 


S3 






00000000 


2 


S9300 


EQU 







00000000 


3 


xo 


EQU 


S9300 




00000002 • 


4 


12 


EQU 


2-S9300 




16400000 


5 


CAB 


OPD 


016400000 




16500000 


6 


eBA 


OPD 


016500000 




16600000 


7 


GAX 


OPD 


016600000 




16700000 


8 


CXA 


OPD 


016700000 




17000000 


9 


CBX 


OPD 


017000000 




17100000 


10 


CNA 


OPD 


017100C00 




17200000 


11 


SKE 


OPD 


017200000 




17300000 


12 


SKR 


OPD 


017300000 




17400000 


13 


MUL 


OPD 


017400000 




17500000 


14 


DIV 


OPD 


017500000 




17600000 


15 


ADM 


OPD 


017600000 




17700000 


16 


XMA 


OPD 


017700000 


00002 




17 




AORG 


2 


00002 




15 


$CW 


RES 


1 


00003 




19 


DW1 


RES 


31 


00000 




20 




ORG 





00000 




21 


$CHR 


RES 




00001 




22 


$EDCT 


RES 




00002 




23 


$ALN 


RES 




00003 




24 


SDWC 


RES 




00004 




25 


GHAR 


RES 








26 


IFRM 


FORM 


3*6,1*14 


00005 


00 00022 


27 


EDUE 


HLT 


LBUF 


00006 


01 00023 


28 


EDWL 


BRU 


LBUF+1 


00007 


00 00025 


29 


EDWV 


HLT 


LBUF+3 


00010 




30 


$EDW 


RES 




00011 




31 


TEMP 


RES 




00012 




32 


PTYP 


RES 




00013 




33 


PLOC 


RES 




00014 




34 


QLOC 


RES 




00015 




35 


$ICW 


RES 




00016 




36 


CHKS 


RES 




00017 




37 


REL 


RES 




00020 




38 


SREL 


RES 





9Q 



a 



a 



o 



o 

3Q 

2} 
O 



o 



00021 




39 


PREL 


RES 


1 


00022 




40 


$LBUF 


RES 





00022 




41 




RES 


3 


00025 




42 


SEREFl 


RES 





00025 




43 




RES 


1 


00026 




44 


SEREF2 


RES 





00026 




45 




RES 


4 


00032 




46 


$CBUF 


RES 


D 


00032 




47 




RES 


1 2 , 


00046 




48 


$TBFE 


RES 





00046 




49 




RES 


8 


00056 




50 


$CBFE 


RES 





00056 


60606060 


51 


SDLY1 


DATA 


060606060 


00057 


00000054 


52 


ERRA 


DATA 


054 


00060 


00000046 


53 




DATA 


*0» 


00061 


00000024 


54 




DATA 


024 


00062 


00000025 


55 




DATA 


025 


00063 


00000031 


56 




DATA 


031 


00064 


00000043 


57 




DATA 


043 


o 00065 


00000047 


58 




DATA 


047 


■^ 00066 


00000051 


59 




DATA 


051 


00067 


00000063 


60 




DATA 


063 


00070 


00000064 


61 




DATA 


064 


00071 


C0177766 


62 


SERRC 


DATA 


ERRA-ERRC+02000 


00072 


60000000 


63 




DATA 


060000000 


00073 


00600000 


64 




DATA 


0600000 


00074 


00006000 


65 




DATA 


06000 


00075 


17000000 


66 




DATA 


017000C00 


00076 


00170000 


67 




DATA 


0170000 


00077 


00001700 


68 




DATA 


01700 


00100 




69 


ETSL 


RES 





00100 


00 ooooo 


70 


$EDC 


HLT 





00101 


54 00676 


71 




SUB 


=060 


00102 


75 00000 


72 




LDB 


Z 


00103 


23 00107 


73 


EDC1 


EXU 


EOCS 


00104 


61 00103 


74 




MIN 


EDC1 


00105 


1 76 40010 


75 




ADM 


*EDU 


00106 


51 00100 


76 




BRR 


EDC 


00107 


67 00022 


77 


EDCS 


LSH 


18 



EXECUTE SHIFT 

STEP SHIFT 

AJD CHARACTER 18 MEMOKY 

EXIT 

161 CHAR 



H 

J-c 

2 



Oi 



oo no 
ooni 

00 U2 

00113 

001114 
00U5 
00116 
00117 
0012() 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
0013J 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 



00153 
00154 





J 



\ 












u 



X 





2 

J 

2 




r. 
w 








67 
67 
01 
75 
36 
76 
61 
51 
23 
00 
35 
66 
55 
35 
51 
00 
76 
55 
35 
14 
66 
71 
55 
14 
35 
71 
72 
01 
16 
41 
75 
66 
35 
36 
51 



00014 
00006 
00113 
00120 
00103 
40010 
00010 
00100 
00107 
00000 
00010 
00017 
00120 
00103 
00121 
00000 
00002 
00677 
00002 
00056 
00003 
00000 
00002 
00700 
00002 
00701 
00100 
00146 
00075 
00142 
00056 
20014 
00030 
00031 
00127 



00 00000 
71 00000 



76 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 



EDC2 



EDCX 
$EDS 



ELN 



ELN1 



ELN2 



* 

soutp 



LSH 
LSH 
BRU 
LOB 
STB 
ADM 
MIN 
BRR 
EXU 
HLT 
STA 
RSH 
ADD 
STA 
BRR 
HLT 
LDA 
ADO 
STA 
ETR 
RSH 
CNA 
ADD 
ETR 
STA 
LDX 
SKA 
B«U 
MRG 
BRX 
LDB 
RCY 
STA 
STB 
BRR 



HLT 
LDX 



2ND CHAR 
3RD CHAR 
LAST CHAR 
RESET EXC 



12 

6 

EDC2 
EDCX 
E0C1 
*EDU 
EDU 
EDC 
EDCS 


EDU 
15 

EDCX 
EDC1 
EDS 


ALN 

=0666667 
ALN 
DLY1 
3 

ALN 
=017171717 

ALN 

=00200000-3#X0 

ETBL,X2 

ELN2 

EfBL-3#X2 

ELN1,X0 

DLY1 

12 

CBUF-2 

CBUF-1 

ELN EXIT 

RELOCATABLE BINARY OUTPUT 


CTYP,X0 



IN WORD 



STORE LAST CHAR 
STEP WORD 
EXIT 



UORD POSITION 



CHAR POSITION 
EXIT 

ALPHABETIC LINE NO, 



P 

9 



8> 






SUBTRACT ZONE FROM NON-ZONEBITS 



SAVE ALPHANUMERIC LINE NUMBER 



TtiST FOR 



RlPLACE WITH BLANK 



O 

n 

o 

R 

%\ 
O 



to 
o 





00155 





76 


00003 


117 


LDA 


DWC 




00156 





14 


00702 


118 


ETR 


=077777 


* 


00157 





73 


00102 


119 


SKG 


I 




001^0 





01 


00200 


120 


BRU 


9UTP2 




00161 


1 


67 


00000 


121 


CXA 






00162 


1 


72 


00012 


122 


SKE 


PTYP 




00163 


J 


01 


00177 


123 


BRU 


9UTP1 




00164 


J 


76 


00703 


124 


LDA 


= 24 




00165 





73 


00003 


125 


SKG 


DUC 




00166 





01 


00177 


126 


BRU 


euTPi 




00167 





76 


00012 


127 


LDA 


PTYP 


* 


001?0 


1 


72 


00157 


128 


SKE 


Z 




00171 


2 


31 


40434 


129 


BRU 


*TYP#X2 




001?2 


3 


76 


00013 


130 


LDA 


PL9C 




00173 





55 


00704 


131 


ADD 


= 1 


* 


0017 4 


1 


72 


00000 


132 


SKE 


L3C 




00175 


J 


01 


00177 


133 


BRU 


euTPi 




00176 


2 


01 


40434 


134 


BRU 


*TYP,X2 




00177 


J 


43 


00241 


135 QUTP1 8RM 


FLUSH 


o 


00200 


u 


43 


00354 


136 8UTP2 BRM 


RESET 


1 


00201 


2 


01 


40434 


137 


BRU 


*TYP#X2 


* £ 


00202 





76 


00000 


138 ENDM LUA 


WORD 




00203 


u 


14 


00702 


139 


ETR 


'077777 




00204 


u 


16 


00441 


140 


MRG 


LBRU 


* 


00205 





35 


00202 


141 


STA 


U9RD 


* 


00206 





76 


00000 


142 


LDA 


ML9C 




00207 





35 


00014 


143 
144 * 


STA 


GL9C 




00210 





71 


00003 


145 DATA LUX 


DWCXO 


* 


00211 





76 


00174 


146 


LDA 


L9C 




00212 





35 


00013 


147 


STA 


PLftC 


* 


00213 


'J 


76 


00205 


148 


LDA 


W9RD 




00214 


2 


35 


00004 


149 


STA 


D W 1 + 1 » X 2 


* 


00215 





76 


00000 


150 


LDA 


WrtOD 




00216 


u 


14 


00705 


151 


ETR 


= 2 


* 


00217 





75 


00170 


152 


LDB 


Z 




00220 


2 


66 


00002 


153 


RSH 


2#X2 




00221 


1 


65 


00000 


154 


CBA 






00222 





16 


00017 


155 


MRG 


RcL 



(DUC> = 0* RESET ONLY 



T/PE CHANGE, FLUSH AND RESET 



(DWC) « 24, FLUSH AND RESET 



(PTYP) > 
(PTYP) = 



(PLQO+1 NOT « (L9C), FLJSH AND RESE 
(PL90 + 1 * (LQC) 



UQ 

8> 



to 

H 



O 



(WORD):- *BRU O-O'-n-tUORD) 
(UL9C) := (ML9C) 

(PL9C) : = (L6C) 

(DWl (DUC+1 ) ) := (WORD) 

B22(WM9D)*2**<22-(DUC) ) 



O 

P 

6" 

BQ 
O 



IN) 
O 



VI 



00223 





35 


00017 


156 


STA 


REL 


00224 


G 


53 


00000 


157 


SKN 


STYP 


00225 





01 


00232 


158 


BRU 


$♦5 


00226 





75 


00704 


159 


LDB 


= 1 


00227 





76 


00217 


160 


LDA 


Z 


00230 


2 


66 


20000 


161 


RCY 


0»X2 


00231 


1 


76 


00020 


162 


ADM 


SREl 


00232 





46 


30003 


163 


CLR 




00233 


1 


72 


00000 


164 


SKE 


PMPD 


00234 





75 


00704 


165 


LDB 


= 1 


00235 


2 


66 


20001 


166 


RCY 


1*X2 


00236 


1 


76 


00021 


167 


ADM 


PREL 


00237 





61 


00003 


16© 


MIN 


DWC 


0024Q 





51 


00153 


169 
170 * 


BRR 


OUTP 


00241 





00 


00000 


171 FLUSH HLT 




00242 





76 


00012 


172 


LDA 


PTYP 


0024 3 


Q 


73 


00227 


173 


SKG 


Z 


00244 





01 


00247 


174 


BRU 


$ + 3 


00245 


1 


72 


00706 


175 


SKE 


= 3 


00246 





01 


00306 


176 


BRU 


FLUSH! 


00247 





61 


00003 


177 


MIN 


DWC 


00250 





76 


00014 


176 


LDA 


QLec 


00251 





35 


00003 


179 


STA 


DW1 


00252 





71 


00003 


180 


LDX 


DWCXO 


00253 





76 


00017 


181 


LDA 


REL 


00254 


I 


72 


00243 


182 


SKE 


Z 


00255 


c 


01 


00257 


183 


BRU 


$♦2 


00256 





01 


00264 


184 


BRU 


FLSH2 


00257 


2 


35 


00003 


185 


STA 


DW1*X2 


0026Q 


2 


77 


00001 


186 


EAX 


1#X2 


00261 





61 


00003 


187 


MIN 


DWC 


00262 





76 


00707 


188 


LDA 


=02000000 


00263 


1 


76 


00003 


189 


ADM 


DW1 


00264 





76 


00020 


190 FU 


3H2 LDA 


SREL 


00265 


1 


72 


00254 


191 


SKE 


Z 


00266 





01 


00270 


192 


BRU 


$♦2 


00267 





01 


00275 


193 


BRU 


FLSH3 


0027Q 


2 


35 


00003 


194 


STA 


BW1,X2 



(.<EL) :=(REL)++(A) 

SKIP IF SPECIAL I/e WORD 



(SREL) := I**(24-DUC)-n-(SREL) 



(DWC):=(DWC)+1 
EXIT 

ENTRY 

RECORD TYPE OF RECORD BEING 'FLUSHED 

(PTYP) * 



(PTYP) « 1 OR 2 

INCLUDE LOAD-ADDRESS WORD IN COUNT 



STORE LOAD ADDRESS 



*0 

CD 
O 



STORE RELOCATION INDICATOR WORD 
INCLUDE LOAD-RELOCATION WORD IN cerUNTlFT 
(fi) := l, (RELOCATION WORD PRESENT) 



O 



o 

|DQ 

o 



I 



00 



00271 


2 


77 


00001 


00272 





61 


00003 


00273 





76 


00710 


00274 


1 


76 


00003 


00275 





76 


00021 


00276 


\ 


72 


00265 


00277 





01 


00301 


00300 





01 


00306 


00301 


2 


35 


00003 


00302 


2 


77 


00001 


00303 





61 


00003 


00304 





76 


00711 


00305 


1 


76 


00003 


00306 





76 


00012 


00307 


9 


75 


00276 


00310 





67 


00006 


00311 





55 


00704 


00312 





55 


00003 


00313 




67 


00017 


00314 





16 


00712 


00315 





35 


00002 


00316 





43 


00325 


00317 





16 


00002 


00320 


U 


35 


00002 


00321 





43 


00000 


00322 





76 


00307 


00323 





35 


00003 


00324 


Q 


51 


00241 


00325 


J 


00 


00000 


00326 





76 


00002 


00327 


u 


66 


00017 


00330 





14 


00713 


00331 





54 


00705 


00332 





35 


00353 


00333 


J 


76 


00706 



195 


eax 


196 


MIN 


197 


IDA 


198 


ADM 


199 


FLSH3 LDA 


200 


SKE 


201 


BRU 


202 


BRU 


203 


ST A 


204 


EAX 


205 


MIN 


206 


LDA 


207 


ADM 


208 


* 


209 


FLUSH1 LDA 


210 


LDB 


211 


LSH 


212 


ADD 


213 


ADD 


214 


LSH 


215 


MRG 


216 


ST A 


217 


* 


218 


BRM 


219 


MRG 


220 


STA 


221 


BRM 


222 


LDA 


223 


STA 


224 


BRR 


225 


* 


226 


* 


227 


CHKSUM HLT 


228 


LDA 


229 


RSH 


230 


ETR 


231 


SUB 


232 


STA 


233 


LDA 



1*X2 

DWC 

=020000000 

DW1 

PREL 

Z 

$ + 2 

FLUSH1 

DU1#X2 

1#X2 

DUC 

=010000000 

DWl 

FORM RECORD CONTROL 

PTYP 

Z 

6 

= 1 

DWC 

15 

=050000 

CW 

COMPUTE 

CHKSUM 

CW 

CW 

WRITR 

Z 

DWC 

FLUSH 



INCLUDE SPECIAL RELOC WO«D IN COUNT 



( 11 ) : = 8 + ( M ) 






WORD 
RcCORD 



TYPE 



INCLUDE CONTROL WORD IN COUNT 
NR OF WORDS IN RECORD 

RECORD MODE (BINARY) 

CHECKSUM AND WRITE RECORD 

COMPUTE FOLDED CHECKSUM 
INSERT CHECKSUM IN CONTROL WORD 
STORE COMPLETED RECORD CONTROL WORD 
WRITE 9NE RECORD 



(DWC) 
EXIT 



= 



SUBROUTINE TO 

CW 
15 

= 077 
= 2 

ICN 
= DW1 



COMPUTE FOLDED CHECKSUM 
EimTRY 



(A) = NR WORDS IN RECORD 



ADDRESS OF 2D WORD 



o 



>o 



00334 





35 


00015 


234 


STA 


ICU 


00335 





76 


00002 


235 


LDA 


CW 


00336 





14 


00714 


236 


ETR 


=077770000 


00337 





17 


00714 


237 


EOR 


=077770000 


00340 





17 


40015 


236 


EOR 


*ICU 


00341 





61 


00015 


239 


HIN 


ICU 


00342 


1 


73 


00353 


240 


SKR 


ICN 


00343 





01 


00340 


241 


BRU 


$-3 


00344 





75 


00322 


242 


LDB 


Z 


00345 





67 


20014 


243 


LCY 


12 


00346 





36 


00016 


244 


STB 


CHKS 


00347 





75 


00344 


245 


LDB 


Z 


0035Q 





66 


20014 


246 


RCY 


12 


00351 





17 


00016 


247 


EOR 


CHKS 


00352 





51 


00325 


246 


BRR 


CHKSUli 


00353 


00000000 


249 ICN DATA 













250 * 














251 * 














252 * 






00354 





00 


00000 


253 RESET HLT 




00355 





76 


00211 


254 


LDA 


L9C 


00356 





35 


00014 


255 


STA 


QLOC 


00357 





76 


00347 


256 


LDA 


Z 


00360 





35 


00017 


257 


STA 


REL 


00361 





35 


00020 


25ft 


STA 


SREL 


00362 





35 


00021 


259 


STA 


PREL 


00363 





71 


00154 


260 


LDX 


CTYP,X0 


00364 





37 


00012 


261 


STX 


PTYP,XO 


00365 





51 


00354 


262 
263 * 


BRR 


RESET 


00366 





76 


00357 


264 ENDN LDA 


Z 


00367 





75 


00002 


265 


LDB 


CW 


00370 





67 


00003 


266 


LSH 


3 


00371 


1 


72 


00706 


267 


SKE 


= 3 


00372 





01 


00374 


266 


BRU 


$♦2 


00373 





51 


00153 


269 


BRR 


OUTP 


00374 





76 


00706 


270 


LDA 


= 3 


00375 





35 


00012 


271 


STA 


PTYP 


00376 





76 


00206 


272 


LDA 


MLOC 



EXIRACT CHECKSUM 
ODD PARITY CHECKSUM 

INCREMENT ADDRESS 



9 



9 

Hfc 



(A) » 24-BIT CHECKSUM OF WORDS 1 THRL 



(A) = COMPLETED 12-BIT CHECKSUM 
EXIT 



ENTRY 

(UL9C):=(L0C) 

(RED :* 
(SREL) J« 

EXIT 



at 



O 



a 



o 



M 
O 



00377 

00400 

00401 



35 00014 
43 00241 
51 00153 



00402 

* 00403 
00404 

* 00405 

* 00406 
00407 

00410 
00411 

* 00412 

* 00413 
00414 
00415 

* 00416 
00417 

f 00420 

* g 00421 

* 00422 
00423 

* 00424 

00425 

00426 

00427 
0043Q 2 

00431 76 

00432 1 76 

00433 51 



71 

76 
35 
61 
76 
14 
16 
35 
75 
76 
67 
35 
76 
14 
46 
61 
Q 76 
14 



43 
00 
16 
16 
35 



00003 
40213 
00003 
00403 
40405 
00714 
00715 
00004 
00366 
00224 
00026 
00353 
40406 
00705 
00014 
00416 
40421 
00702 
00000 
00705 
00716 
00353 
00005 
00706 
00003 
00153 



00000402 



00434 

00435 

00436 

00437 
00440 



00 00210 
00 00402 
00 00442 
00 00202 
00 00366 



273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
286 
289 
290 
291 
292 
293 
294 
295 
296 
297 
296 
299 
300 
301 
302 
303 
304 
305 
306 
307 
306 
309 
310 
311 



DEF 



DEF1 



* 
REF 

TYP 



STA 

BRM 

BRR 



LDX 
LOA 
SfA 
MIN 
LDA 
ETR 
MRG 
STA 
LDB 
LDA 
LSH 
STA 
LOA 
ETR 
XAB 
MIN 
LDA 
ETR 
BRM 
HLT 
MRG 
MRG 
STA 
LDA 
ADM 
BRR 

EQU 

HLT 
HLT 
HLT 
HLT 

HLT 



QLOC 

FLUSH 

8UTP 

INSERT 3 WORD REF OR DEF ITEM IN CURRENT OUTPUl^ECOW 
DWCXO 
♦ WORD 



DW1,X2 

WORD 
*WORD 

=077770000 

•06060 

DU1+1#X2 

Z 

STYP 

22 

ICN 
• WORD 

«2 

WORD 
*WORD 
"077777 
SKB 
*2 

*0100000 
ICN 

DW1*2#X2 
= 3 
DWC 
OUTP 



ENTRY 

STORE 1ST 4 CHARS OF LABEL 




STORE LAST .2 CHARS OF LABEL 



SEi ADDRESS RELOCATION FLAG 
SET SUB-TYPE 



(DUO 
EXIT 



(DUO+3 



DEF 

CURRENT RECORD IMAGE 

DATA 

DEF 

POP 

ENDM 

ENDN 



EXTERNAL REF OR DEF 



o 



~t~ 



I 
ho 



00441 


01 00000 


312 


LBRU 


BRU 





00442 


71 00003 


313 


POP 


LDX 


DWCXO 


00443 


76 00000 


314 




LDA 


CNTR 


00444 


35 00422 


315 




STA 


U9RD 


00445 


76 40444 


316 




LDA 


*W8RD 


00446 


2 35 00003 


317 




STA 


DW1*X2 


00447 


61 00445 


318 




MIN 


U0RD 


00450 


76 40447 


319 

320 




LDA 


*W8RD 


00451 


14 00714 


321 




ETR 


=077770000 


00452 


16 00715 


322 




MRG 


s:» * 


00453 


2 35 00004 


323 




STA 


DW1+1#X2 


00454 


61 00450 


324 




MIN 


UQRD 


00455 


D 76 40454 


325 




LDA 


♦ WORD 


00456 


01 00430 


326 




BRU 


DEF1 


00457 


00 00000 


327 


SREAD 


HLT 





00460 


43 00000 


326 




BRM 


INPUT 


00461 


76 00717 


329 




LDA 


= CBUF 


00462 


35 00004 


330 




STA 


CHAR 


00463 


76 00521 


331 




LDA 


GETX 


00464 


35 00503 


332 




STA 


GETS 


00465 


43 00127 


333 




BRM 


ELN 


00466 


43 00501 


334 




BRM 


GET 


00467 


51 00457 


335 




BRR 


READ 


00470 


00 00000 


336 


$FLD 


HLT 





00471 


76 00720 


337 




LDA 


= 7 


00472 


35 00011 


338 




STA 


TEMP 


00473 


43 00501 


339 


FLD1 


BRM 


GET 


00474 


1 72 00676 


340 




SKE 


s # » 


00475 


51 00470 


341 




BRR 


FLD 


00476 


1 73 00011 


342 




SKR 


TEMP 


00477 


01 00473 


343 




BRU 


FLD1 


00500 


51 00470 


344 




BRR' 


FLD 


00501 


00 00000 


345 


$GET 


HLT 





00502 


76 40004 


346 




LDA 


*CHAR 


00503 


23 00511 


347 


GETS 


EXU 


GETT 


00504 


61 00503 


348 




MIN 


GETS 


00505 


14 00713 


349 


GETl 


ETR 


= 077 


00506 


35 00000 


350 




STA 


CHR 



p 

O 



-» r 



SET BEGINNING OF LINE 



SET BEGINNING OF WORD 



O 



GET 1ST CHARACTER OF LINE 
EXIT 



JUiik 



EXIT 

LOAD CHARACTER 
EXECUTE SHIFT 



O 



o 



O 

o 



jy» 





00507 


1 66 00000 


351 




CAX 






00510 


51 00501 


352 




B8R 


GET 




00511 


66 00022 


353 


GETT 


RSH 


18 




00512 


66 00014 


354 




RSH 


12 




00513 


66 00006 


355 




RSH 


6 




00514 


01 00515 


356 




BRU 


GET2 




00515 


75 00521 


357 


GET2 


LOB 


GETX 




00516 


36 00503 


356 




STB 


GETS 




00517 


61 00004 


359 




M.1-N 


CHAR 




J>0520 


01 00505 


360 




BRU 


GET1 




00521 


23 00511 


361 


GET* 


EXU 


GETT 




00522 


00 ooooo 


362 


$TCHR 


HLT 







00523 


36 00011 


363 




STB 


TEMP 




00524 


43 00501 


364 




BRM 


GET 




00525 


75 000U 


365 




LDB 


TEMP — 


t 


00526 


JLJ3 QQ424 


366 




B?H 


SKB 


I 


00527 


2 00 00000 


367 




HLT 


CTT,X2 




00530 


61 00522 


366 




MIN 


TCHR 




_ 00531 


51 00522 


369 




BRR 


TCHR 




<p 00532 


00 ooooo 


370 


SEDIT 


HLT 







N3 00533 


43 00566 


371 




BRM 


EDE 




_-JM)fi3L4.. 


J). 43 00606 


372 




BRH 


EDL 




00535 


76 00007 


373 




LDA 


EDUV 




00536 


43 00121 


374 




B?M 


EOS 


t 


. 00537 


Ze 00455 


375 




LOA 


WORD 


» 


00540 


o 35 00000 


376 




STA 


WRD1 




00541 


43 00620 


377 




BRM 


EDR 


» 


005.42 


Q 43 00OQQ 


376 




BRM 


PRNT 




00543 


43 001*3 


379 




BRM 


OUTP 




00544 


51 00532 


360 




BRR 


EDIT 




__ 00545 


.00 ooooo 


361 


SEDTV 


HLT 







00546 


43 00566 


382 




BRM 


EDE 




00547 


76 00007 


383 




LDA 


EDUV 




■005.50 


43 00121 


384 




BRM 


EDS 




00551 


76 00720 


385 




LOA 


«7 


k 


00552 


35 00443 


386 




STA 


CNTR 


» 


._. 00553 


76 Q0557 


387 




LOA 


WORD 




00554 


66 00025 


388 




RSH 


21 




00555 


14 00720 


389 




ETR 


■7 



i? c 



1ST CHAR 
2ND CHAR 
3RD CHAR 
END WORD 

RESET EXU 
STEP WORD 




GET CHAR 



y.Vi ^lV- 



TEST FOR MATCH 
CHARACTER IS O.K 

E X * T 

EDIT ERRORS 
EDIT LOCATION 



DATA WORD 
EDIT BY FORM 
PRINT LINE 
OUTPUT WORD 
EXIT 



EDIT ERRORS 

VALUE WORD POSITON 



7 CHARACTERS LEFT IN 3 

DATA 

LEAVE 1ST CHAR IN A 



O 



at" ' 



fe". 




00556 


j 


43 


00646 


390 


00557 





43 


00542 


391 


00560 





51 


00545 


392 


00561 





00 


00000 


393 


00562 





43 


00566 


394 


00563 





43 


00606 


395 


00564 





43 


00557 


396 


00565 


Q 


51 


00561 


397 


00566 





00 


00000 


398 


00567 





76 


00005 


399 


00570 





43 


00121 


400 


00571 





76 


00412 


401 


00572 


1 


77 


00000 


402 


00573 


1 


76 


00000 


403 


00574 





71 


00071 


404 


00575 


2 


76 


00071 


405 


00576 


2 


75 


00572 


406 


00577 





43 


00526 


407 


00600 





00 


00000 


408 


T 00601 





43 


00100 


409 


8 00602 





75 


00571 


410 


00603 


2 


36 


00576 


411 


00604 





41 


00575 


412 


00605 





51 


00566 


413 


00606 


Q 


00 


00000 


414 


00607 





76 


00006 


415 


00610 





43 


00121 


416 


00611 





76 


00721 


417 


00612 





35 


00552 


418 


00613 





76 


00355 


419 


00614 





14 


00000 


420 


00615 





56 


00014 


421 


00616 





43 


00646 


422 


00617 





51 


00606 


423 


00620 





00 


00000 


424 


00621 


u 


75 


00722 


425 


00622 





43 


00660 


426 


00623 





01 


00645 


427 


00624 





66 


00027 


428 



SEDTL 



$EDE 



EBE1 



EDL 



EDR 



EDR3 



BRM 


EDF 


BRM 


PRNT 


BRR 


EDTV 


HLT 





BRM 


EDE 


BRM 


EDL 


BRM 


PRNT 


BRR 


EDTL 


HLT 





LDA 


EDUE 


BRM 


EDS 


LDA 


Z 


XMA 


VERR 


ADM 


UEPR 


LDX 


ERRCXO 


LDA 


ERRCX2 


LDB 


VERR,X2 


BRM 


SKB 


HLT 


Ml 


BRM 


EDC 


LDB 


Z 


STB 


VERR,X2 


BRX 


EDE1*X0 


BRR 


EDE 


HLT 





LDA 


EDUL 


BRM 


EDS 


LDA 


= 4 


STA 


CNTR 


LDA 


L(JC 


ETR 


ADDR 


RSH 


12 


BRM 


EDF 


BRR 


EDL 


HLT 





LDB 


=040000000 


BRM 


FLDC 


BRU 


EDRl 


RSH 


23 



EDIT FIELD 
PRINT LINE 
EXIT 

EDIT ERRORS 
EDIT LOCATION 
PRINT LINE 
EXIT 

ERROR WORD POSITION 



RESET V ERROR FLAG 

U SET IF V SET 

ERROR COUNT 

ERROR LISTING CHAR 



INSERT ERROR CODE 

RESET FLAG 
TEST NEXT FLAG 
EXIT 

LOC WORD POSITION 



4 MORE CHARACTERS IN 8 



EDIT LOC 
EXIT 



COUNT BITS FIELD 
NO MORE FIELDS 



BQ 



o 



to 



00625 


1 


75 


00706 


429 




DIV 


= 3 


„ ^ 


00626 





43 


00577 


430 




BRM 


SKB 






00627 





00 


00706 


431 




HLT 


= 3 




JQ 

• 


00630 






01 
54 


00633 
00704 


432 
433 




BH!U 
SUB 


EDR2 
= 1 




00631 




~p m " " 


00632 





75 


00706 


434 




LDB 


= 3 


/ 


& 


00633 





35 


00612 


435 


EDR2 


STA 


CNTR 


OCTAL CHARACTERS IN FIELD 


.teal . 


00634 


1 


70 


00000 


436 




CBX 




BITS IN 1ST CHAR 


*■ 


00635 


Q 


76 


00602 


437 




LDA 


Z 






00636 



2 


75 
67 


00540 
00000 


438 
43$ 




LDB 
LSH 


URD1 
0#X2 


DATA WORD 




00637 


1ST CHAR IN A 


\ 


00640 





43 


00646 


440 




BRM 


EDF 


EDIT FIELD 




00641 





76 


00676 


441 




LDA 


= 060 






00642 





43 


00100 


442 




BRM 


EDC 


INSERT TRAILING BLANK 




00643 


u 


75 


00635 


443 




LDB 


Z 






00644 






01 
51 


00622 
00620 


444 
445 


EDH1 


BRU 
BRR 


EDR3 
EDR 


DO NEXT FIELD 




00645 


EXIT 


3 


00646 





00 


00000 


446 


EDF 


HLT 







00647 




J 


01 

76 


00652 
00643 


447 

446 


EDF2 


BRU 
LDA 


EDF1 
Z 


■1 -. k- 


00650 




a 


00651 





67 


00003 


449 




LSH 


3 


NEW OCTAL CHAR 


00652 






36 
43 


00636 
00100 


450 
451 


EDF1 


STB 
BRM 


WRD1 
EDC 






00653 


INSERT CHAR IN IMAGE 


:- 


00654 





75 


00652 


452 




LDB 


WRD1 






00655 


1 




73 
01 


00633 
00650 


453 
454 




S'KR 
BRU 


CNTR 
EDF2 


TtST FOR END FIELD 





00656 




00657 





51 


00646 


455 




BRR 


EJF 


EXIT 




00660 






00 
76 


00000 
00000 


456 
457 


SFLDC 


HLT 

LDA 




URD2 






00661 


FORM WORD 




00662 





17 


00722 


456 




E9R 


=040000000 




P 


00663 






71 

67 


00723 
10030 


459 
460 




LDX 

NOD 


=22»X0 
24 




00664 


COUNT BITS IN FIELD 


00665 





67 


00001 


461 




LSH 


1 


: : 


• 


00666 






35 
37 


00661 
00655 


462 
463 




SIA 
STX 


WRD2 
CNTR,X0 


NEW FORM WORD 


1Q 


00667 


■■■'■■f:i ' " 


!4 


00670 





76 


00724 


464 




LDA 


= 23 


"1 *■ 


• : 


00671 







54 
14 


00667 
00702 


465 
466 




SUB 

ETR 


CNTR 
'077777 


O 


00672 






00673 


J 


73 


00703 


467 




SKG 


= 24 




o 



en 



00674 


61 00660 


468 


00675 


51 00660 


469 
470 


00676 


00000060 




00677 


00666667 




00700 


17171717 




00701 


Q0177775 




00702 


00077777 




00703 


00000030 




00704 


00000001 




00705 


00000002 




00706 


00000003 




00707 


02000000 




00710 


20000000 




00711 


10000000 




00712 


00050000 




00713 


00000077 




00714 


77770000 




00715 


00006060 




00716 


00100000 




00717 


00000032 




00720 


00000007 




00721 


00000004 




00722 


40000000 




00723 


00000026 




00724 


00000027 




00613 


l©c 




00600 


Ml 




00376 


ML8C 




00233 


PM9D 




00564 


PRNT 




00626 


SKB 




00413 


STYP 




00573 


UERR 




00603 


VERR 




00215 


WM9D 




00553 


WORD 




00654 


WRD1 




00666 


WRD2 





PLC1 



MIN 


FLDC 


BRR 


FLDC 


END 





EXIT 



9 

i— • 



O 



o 

p 

"81 
o 

o 



O 



00321 


WRITR 


00650 


I 


00614 


ADDR 


00671 


CNTR 


00527 


CTT 


00363 


CTYP 


00460 


input 



O 



._ 1 


ml 

p 

9 

*> 










^ — 








o 


















o 






i 






SI 

*-* 






to 
o 

o 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 012006 



IDENTIFICATION: 



900 Series SYMBOL 910 Mnemonic Table 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION : 



PURPOSE 



SDS 



January 14, 1965 



Any SDS 900 series computer with at least 4, 096 words of 
memory. 

To provide SYMBOL with the mnemonic table of the target 
machine. 



PROGRAMMED 
OPERATORS: 



To localize other assembler features which are oriented 
specifically to the target machine. 



None 



STORAGE: 

TIMING: 

USE: 



01 1 16 locations 



N/A 



SYMBOL consists of three parts (separately assembled 
programs) plus a mnemonic table plus I/O subroutines. 

By exchanging mnemonic tables, one can assemble SYMBOL 
programs for the SDS 910, 920, 925, 930 or 9300 on any of 
these machines. 



METHOD: 



The mnemonic table consists of three- word entries 
beginning at the location labeled $MT and ending at the 
location labeled $MTE. The format of the mnemonic table 
is described below. 



During pass 1 of the assembly, entries are added to the 
mnemonic table for all symbol defined on OPD, FORM, or 

"PfTPn "l-inoe TVxaoo ontripo pxfe^ -f 1 o or qto rl hv bit Ifi fif tVi £* 



second word in order to permit their being purged in 



7-1 
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METHOD: (Cont) between batched assemblies. Expansion of the mnemonic 

table as opposed to the building of a separate table allows 
fast table searching but precludes the use of literals within 
this portion of the SYMBOL. 

For the 910 and 920 mnemonic tables, complete 
compatibility has been maintained with respect to the 
SYMBOL 4 mnemonics, with the result that there is some 
redundancy in the device EOM mnemonics (such as RPTW, 
RPTY and RPT). Also, certain of the SYMBOL 4 
mnemonics are recognized but ignored (such as FORT, LIST, 
etc.). The user may add to or delete from the SDS - 
supplied mnemonic table by reassembly. 

MNEMONIC TABLE ENTRY FORMAT 

Bits Word 

First four characters of symbol 

Fifth and sixth characters of symbol 

I/O command with unit and channel to be 
supplied (e. g. , RPT) 

Programmed operator 

Not used 

Duplicate flag 

Programmer defined entry (OPD, FORM, 
POPD or external POP) 

Instruction, octal address 

Instruction, I/O command with channel 
specified (e. g. , RPTW) 

Directive, special label definition 

Directive, normal label definition 

23 2 Form 

7-2 



0-23 


1 


11 


2 


12, 20 


2 


13 


2 


16 


2 


17 


2 


18 


2 


19 


2 


20 


2 


21 


2 


22 


2 
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METHOD: (Cont) If bits 12, 21, 22 and 23 are off, the third word contains 

the data word without parameters. 

The third word of directive entries (bit 21 or 22 on) 
contains the starting address of the lines of instructions 
which process the directive line encountered. 

The third word of a form item (bit 23 on) contains a form 
pattern word; i.e. , a word with a one in the leading bit 
position of each field, and zeros elsewhere. 

The third word of a programmed operator entry (bit 13) 
has the following format: 

Bits 0-1 Type (0 internal definition, 1 external 

reference, 2 external definition) 

Bits 2-7 Programmed operator number (assigned 

at end of pass 1) 

Bit 8 Relocation bit (if definition) 

Bits 9-23 Address of programmed operator 

interpretive code 



7-3 



I 



00000 

00001 

00002 

00003 

00004 

00005 

00006. 

00007 

00010 

ooon 

00012 
00013 
00014 

00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 



00000000 
00000000 
00000002 
17600000 
77770000 
77777776 
00002040 
61 00000 
76 00000 
14 00000 
16 00161 
66 00001 
35 00005 
61 00000 
01 00000 
61 00012 



43 
46 
35 
53 
01 
01 
61 
76 
35 



71 
2 76 



35 
76 
14 
35 
01 
53 
01 
01 
76 



00000 
30003 
00011 
00000 
00023 
00013 
00000 
00161 
00000 
00000 

ooooo 

00000 
00001 
00001 

ooooo 

00053 
00020 
00040 
OOOOO 
00023 



1 


* 


S5C 




2 


S9300 


EQU 





3 


xo 


EQU 


S9300 


4 


%2 


EQU 


2-S9300 


5 


ei76 


DA T A 


017600000 


6 


C7777 


DATA 


077770000 


7 


M2 


DATA 


-2 


8 


G2040 


DATA 


02040 


9 


$POPR 


MIN 


PMOD 


10 




LDA 


WORD 


11 




ETR 


C176 


12 




MRG 


31 


13 




RSH 


1 


14 




STA 


WORD 


15 




MIN 


IERR 


16 




BRU 


INR1 


17 


eepi 


MIN 


IERR 


Id 


SPOPI 






19 




BRM 


DLBL 


20 




CLR 




21 




STA 


WORD 


22 




SKN 


PASS 


23 




BRU 


$ + 2 


24 




BRU 


INR1 


25 




MIN 


LOC 


26 




LDA 


Bl 


27 




STA 


L8LIP2 


28 




LDX 


LSYM,XO 


29 




LDA 


0#X2 


30 




STA 


L8L1 


31 




LDA 


1*X2 


32 




ETR 


C7777 


33 




STA 


L3L1P1 


34 




BRU 


P0PD1 


35 


POPD 


SKN 


PASS 


36 




BRU 


$ + 2 


37 




BRU 


FRM4 


38 




LDA 


LOC 



TO 



O 

I— » 



Jtd 
S 

o 



o 

o 

ITO 



O 

o 






00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 

00060 
00061 

00062 
00063 
00064 
00065 
00066 
00067 

00070 
00071 

00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 



35 
76 
14 
35 
76 
75 
70 
76 
55 
35 
76 
55 
35 

01 
46 
35 
01 
46 
35 



01 
43 



76 
75 
43 
01 
43 



43 
01 
00 
53 
01 
36 
54 
72 
01 
53 
55 
35 
76 



00025 
00033 
00002 
00042 
00172 
00000 
00000 
00000 
00041 
00051 
00003 
00044 
00054 
00000 
30003 
00000 
00000 
30003 
00060 
00000 
00000 
00000 
00172 
00075 
00065 
00000 
00075 
00072 
00000 
00035 
00112 
00017 
00046 
00101 
00105 
00100 
00102 
00104 
00050 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



pePDi 



BOOL 



BORG 



OCT 



DEC 



6CTDEC 



STA 


L8L1P2 


LOA 


LdLlPl 


ETR 


M2 


STA 


LBL1P1 


LOA 


Z 


LOB 


Ml 


SKM 


XFLG 


LOA 


30 


ADD 


LBL1P2 


STA 


L3L1P2 


LOA 


C2040 


ADD 


LBL1P1 


STA 


LBL1P1 


BRU 


ePDi 


CLR 




STA 


OCTF 


BRU 


EQU 


CLR 




STA 


8CTF 


BRU 


ORG 


BRM 


ecTw 


LDA 


VALU 


LDB 


Z 


BRM 


9CTDEC 


BRU 


OCT 


BRM 


DPU 


BRM 


OCTDEC 


BRU 


DEC 


HLT 





SKN 


PASS 


BRU 


0D1 


STB 


WORD 


SUB 


Ml 


SKA 


Ml 


BRU 


$ + 2 


SKN 


WORD 


ADD 


Ml 


STA 


U9RD 


LDA 


BO 



* 00110 





35 


00000 


76 




STA 


URD2 


* 001U 





43 


ooooo 


79 




BRM 


EDIT 


» 00112 





61 


00040 


80 


0D1 


MIN 


L9C 


> 00113 





76 


OOOOO 


81 




LDA 


TERM 


► 00114 




75 


00105 


82 




LDB 


Ml 


00115 





70 


00163 


83 




SKM 


CCHR 


> 00116 





01 


OOOOO 


84 




BRU 


LINE 


00117 





51 


00075 


85 




BRR 


OCTDEC 


» 00120 





76 


OOOOO 


86 


BCI 


LDA 


P14 


► 00121 





75 


OOOOO 


87 




LDB 


DC 


> 00122 





71 


OOOOO 


88 




LDX 


CHR,XO 


► 00123 


c 


43 


OOOOO 


89 




BRM 


SKB 


< 00124 


2 


00 


OOOOO 


90 




HLT 


CTT#X2 


» 00125 





43 


OOOOO 


91 




BRM 


DECW 


* 00126 





75 


OOOOO 


92 




LDB 


SPAC 


* 00127 





36 


OOOOO 


93 




STB 


BCIF 


09130 





67 


00002 


94 




LSH 


2 


■ 00131 





01 


OOOOO 


95 




Bf*U 


TEXT1 


» 00132 





53 


00076 


96 


BPT 


SKN 


PASS 


»"vi 00133 





01 


OOOOO 


97 




BRU 


LIN2 


i 00134 





76 


00160 


98 




LDA 


SKSB 


» 00135 





35 


00106 


99 




STA 


WORD 


f 00136 





43 


OOOOO 


100 


BPT1 


BRM 


SCAN 


00137 





76 


00161 


101 




LDA 


Bl 


* 00140 





71 


00066 


102 




LDX 


VALU#XO 


00141 


2 


66 


00015 


103 




RSH 


13.X2 


00142 





14 


00162 


104 




ETR 


BPM 


00143 





73 


00172 


105 




SKG 


Z 


» 00144 





61 


OOOOO 


106 




MIN 


TERR 


' 00145 





55 


00135 


107 




ADD 


WORD 


» 00146 





35 


00145 


108 




STA 


WORD 


» 00147 





76 


00113 


109 




LDA 


TERM 


» 00150 





75 


00114 


110 




LDB 


Ml 


00151 





70 


00163 


HI 




SKM 


CCHR 


» 00152 





01 


OOOOO 


112 




BRU 


LIN3 


00153 





01 


00136 


113 




BRU 


BPTl 


00154 


00600000 


114 


$E8D 


DATA 


0600000 


00155 


00200000 


115 


$EOM 


DATA 


0200000 


00156 


04600000 


116 


$SKSEOD DATA 


04600000 



OQ 

a> 



o 

»-* 

-4 



IGNORE IF 1ST PAS'S' 

INSTRUCTION 
GET BREAK-POINT 



±d 



O 



POSITION BREAKPOnn^BTT 

MASK 

TEST RANGE 



SET TRUNCATION ^lWWWW 



m 



LAST BREAKPOINT 
GET NEXT BREAKPOINT 



o 

OQ 

o 



is* 

o 
o 



00157 


J0640000 


117 


SEODI 


DATA 


0640000 


001 bo 


04020000 


118 


SK3B 


DATA 


04020000 


00161 


20000000 


119 


Bl 


DATA 


020000000 


00162 


00000740 


120 


6PM 


DATA 


0740 


00163 


00000073 


121 


eCHR 


DATA 


073 


00164 


20 00000 


122 


SDPWR 


NOP 





00165 


44040000 


123 


SINST 


DATA 


044040000 


00166 


00040000 


124 


SINDB 


DATA 


040000 


00167 


00000016 


125 


SAB 


DATA 


016 


001 7() 


00000011 


126 


$NAB 


DATA 


9 


00171 


00 Z7777 


127 


$ADDR 


HLT 


037777 


00172 




128 


SF9RCE0 RES 





00172 


00000000 


129 


Z 


DATA 





00173 


00000007 


130 


SXMSK 


DATA 


07 




00000020 


131 


INS1 


EQU 


020 




ooooooio 


132 


INS2 


EQU 


010 




00004Q10 


133 


INS9 


EQU 


04010 




00000004 


134 


DIR1 


EQU 


4 




00000002 


135 


DIR2 


EQU 


2 


^j 


60600000 


136 


NEM 


OPD 


060600000 


V| 




137 


HAF 


FORM 


12*12 






138 


P 


F9RM 


9*15 


00174 




139 


$MT 


RES 





00174 


43237060 


140 




TEXT 


4»LCY 


00175 


6 06 00000 


141 




NEM 





00176 


06720000 


142 




DATA 


006720000 


00177 


43242160 


143 




TEXT 


4,LDA 


00200 


6 06 00000 


144 




NEM 





00201 


07600000 


145 




DATA 


007600000 


00202 


43242260 


146 




TEXT 


4*LDB 


00203 


6 06 00000 


147 




NEM 





00204 


07500000 


148 




DATA 


007500000 


00205 


43246760 


149 




TEXT 


4#LDX 


00206 


6 06 00000 


150 




NEM 





00207 


J7100000 


151 




DATA 


007100000 


00210 


43314360 


152 




TEXT 


4*LIL 


00211 


6 06 00002 


153 




NEM 


DIR2 


00212 


00 00000 


154 




HLT 


N9P0 


00213 


43316263 


155 




TEXT 


4*LIST 



FLPT ECXHAN6E OPERATOR. XAB FOR 9300 



►d 

OJQ 

o 



O 



O 
».. 

r+ 
P 

I— • 

o 
o 



o 
o 



03 



00214 6 06 00002 156 

00215 00 00212 157 

00216 43623060 158 

00217 6 06 00000 159 

00220 06700000 160 

00221 44242560 161 

00222 6 06 00000 162 

00223 06000000 163 

00224 44314560 164 

00225 6 06 00000 165 

00226 06100000 166 

00227 44316660 167 

00230 6 06 00000 168 

00231 01200000 169 

00232 44317060 170 

00233 6 06 00000 171 

00234 01000000 172 

00235 44512760 173 

00236 6 06 00000 174 

00237 01600000 175 

00240 44646260 176 

00241 6 06 00000 177 

00242 06400000 178 

00243 45462460 179 

00244 6 06 00000 180 

00245 06710000 181 

00246 45464760 182 

00247 6 06 00000 183 

00250 02000000 184 

00251 46236360 185 

00252 6 06 00002 186 

00253 00 00065 187 

00254 46472460 188 

00255 6 06 00004 189 

00256 00 00000 190 

00257 46512760 191 

00260 6 06 00004 192 

00261 00 00064 193 

00262 46656360 194 



NEM 

HLT 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

DATA 

TEXT 

NEM 

HLT 

TEXT 

NEM 

HLT 

TEXT 

NEM 

HLT 

TEXT 



DIR2 

N9P9 

4,LSH 



006700000 

4*MDE 



06000000 

4#MIN 



006100000 

4,MIW 



001200000 

4,MIY 



001000000 

4#MRG 



001600000 

4*MUS 



06400000 

4#N9D 



006710000 

4, NOP 



002000000 

4, OCT 

DIR2 

OCT 

4,0PD 

DIR1 

OPD 

4#0RG 

DIRl 

ORG 

4#0VT 



Y 1 



00263 6 06 00000 195 

00264 04020001 196 

00265 47212725 197 

00266 6 06 00002 198 

00267 00 00000 199 
002*0 47226360 200 

00271 6 06 04010 201 

00272 04012045 202 

00273 47232260 203 

00274 6 06 04010 204 

00275 02 03045 205 

00276 47232460 206 

00277 6 06 04010 207 

00300 02 02045 205 

00301 47314560 209 

00302 6 06 00000 210 

00303 03300000 211 

00304 47464724 212 

00305 6 06 00004 213 

00306 00 00035 214 

00307 47466360 215 

00310 6 06 00000 216 

00311 01300000 217 

00312 47476360 218 

00313 6 06 04010 219 

00314 02 02043 220 

00315 47476366 221 

00316 6 06 00010 222 

00317 00202043 223 

00320 47476370 224 

00321 6 06 00010 225 

00322 00202143 226 

00323 47634360 227 

00324 6 06 04010 228 

00325 02 00043 229 

00326 47634366 230 

00327 6 06 00010 231 

00330 00200043 232 

00331 47634370 233 
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279 


00410 


00202000 


280 


00411 


51422270 


281 


00412 


6 06 00010 


282 


00413 


00202100 


263 


00414 


51465127 


284 


00415 


6 06 00002 


285 


00416 


00 00261 


286 


00417 


51466560 


287 


JDQ42Q 


6 06 00000 


288 


00421 


02 20001 


289 


00422 


51476360 


290 


00423 


6 Q6 04010 


291 


00424 


02 02003 


292 


00425 


51476366 


293 


00426 


6 06 00010 


294 


00427 


00202003 


295 


00430 


51476370 


296 


00431 


6 06 00010 


297 


00432 


00202103 


298 


00433 


51623060 


299 


00434 


6 06 00000 


300 


00435 


06600000 


301 


00436 


51632260 


302 


00437 


6 06 04010 


303 


0044Q 


02 03010 


304 


00441 


51632266 


305 


00442 


6 06 00010 


306 


00443 
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TEXT 
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00455 51632470 317 

00456 6 06 00010 318 

00457 00202110 319 

00460 51636260 320 

00461 6 06 04010 321 

00462 02 14000 322 

00463 62262260 323 

00464 6 06 04010 324 

00465 02 03030 325 

00466 62262266 326 

00467 6 06 00010 327 

00470 00203030 328 

00471 62262460 329 

00472 6 06 04010 330 

00473 02 02030 331 

00474 62422160 332 

00475 6 06 00000 333 

00476 J7200000 334 

00477 62422760 335 

00500 6 06 00000 336 

00501 07300000 337 

00502 62424460 338 

00503 6 06 00000 339 

00504 07000000 340 

00505 62424560 341 

00506 6 06 00000 342 

00507 05300000 343 

00510 62426260 344 

00511 6 06 00020 345 

00512 04000000 346 

00513 52512260 347 
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00515 02 07030 349 

00516 62512266 350 
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TEXT 
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00550 00 00000 376 

00551 63464760 377 
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00567 02 02040 391 

00570 63704766 392 

00571 6 06 00010 393 

00572 00202040 394 

00573 63704770 395 

00574 6 06 00010 396 

00575 00202140 397 

00576 64454331 396 
Q0577 6263 0002 399 

00600 00 00545 400 

00601 66314460 401 

00602 6 06 00000 402 

00603 03200000 403 

00604 66632260 404 

00605 6 06 04010 405 

00606 Q 02 03050 406 

00607 66632266 407 

00610 6 06 00010 408 

00611 00203050 409 

00612 66632270 410 

00613 6 06 00010 411 

00614 00203150 412 

00615 66632460 413 

00616 6 06 04010 414 

00617 02 03150 415 

00620 66632466 416 

00621 6 06 00010 417 

00622 00202050 416 

00623 66632470 419 

00624 6 06 00010 420 

00625 00202150 421 

00626 67212260 422 

00627 6 06 00000 423 

00630 04600014 424 

00631 70314460 425 
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00633 J3000000 427 

00634 21222360 428 
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0064Q 6 06 00000 432 

00641 05500000 433 

00642 21315160 434 

00643 6 06 00000 435 

00644 U 02 20020 436 

00645 21432360 437 
Q0646 6 06 04010 436 
00647 00250000 439 

00650 21465127 440 

00651 6 06 00004 441 

00652 00 00000 442 

00653 21622360 443 

00654 6 06 04010 444 

00655 02 12000 445 

00656 22212360 446 

00657 6 06 00000 447 

00660 04610012 445 

00661 22232460 449 

00662 6 06 00002 450 

00663 00 00000 451 

00664 22233160 452 

00665 6 06 00002 453 

00666 00 00120 454 

00667 22256366 455 

00670 6 06 00000 456 

00671 04020010 457 

00672 22256370 45$ 

00673 6 06 00000 459 

00674 04020020 460 

00675 22434260 461 
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00700 22464643 464 
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00702 00 00057 466 
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00705 00 00062 469 

00706 22476360 470 

00707 6 06 00002 471 

00710 00 00132 472 

00711 22514460 473 

00712 6 06 00000 474 

00713 04300000 475 

00714 22515160 476 

00715 5 06 00000 477 

00716 05100000 478 

00717 22516366 479 

00720 6 06 00000 480 

00721 04Q21000 481 

00722 22516370 482 

00723 6 06 00000 483 

00724 04022000 484 

00725 22516460 485 

00726 6 06 00000 486 

00727 01 00000 487 

00730 22516760 488 

00731 6 06 00000 489 

00732 04100000 490 

00733 22626260 491 

00734 6 06 00002 492 

00735 00 00374 493 

00736 22636360 494 

00737 5 06 04010 495 

00740 04012010 496 

00741 23216360 497 

00742 6 06 04010 498 

00743 w 4014000 499 

00744 23256360 500 

00745 6 06 04010 501 

00746 J4011000 502 
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00750 6 06 04010 504 
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4, CRT 
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TEXT 
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TEXT 
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TEXT 
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TEXT 
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00203070 
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00203070 
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TEXT 
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6 06 04010 
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00133 
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00065 


9CTW 
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SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 012014 



IDENTIFICATION: 



SYMBOL Reproduce and Update Routine 



AUTHOR: 

ACCEPTED: 

COMPUTER 
CONFIGURATION: 

PURPOSE: 



USE: 



Ken Brown, SDS 
April 16, 1965 

Any 900 series computer. 

To edit a binary paper tape consisting of multiple Standard 
Binary programs. Editing is performed at the file level. 



PROGRAMMED 




OPERATORS: 


None 


STORAGE: 


666 


TIMING: 


N/A 


SOURCE 




LANGUAGE: 


SYMBOL 


LOADING 




PROCEDURE: 


Standard 



The program is designed to copy or skip a number of files 
(standard binary programs) on paper tape as specified by 
typewriter inputs. These inputs are as follows: 

ACOPY BOOT. (Main use is to up-date paper tape version 
of SYMBOL) This will cause the Bootstrap Loader, Pre- 
loader, and Loader to be copied. If breakpoint 2 is set, only 
the Bootstrap Loader and Pre-loader will be copied. 

ACOPY n FILES. ( < n <89 ) 

Will copy n files (standard binary programs) as specified. 
Labels of External Definition Items and External Programmed 
Operator Definitions of those files copied will be typed. 
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USE: (Cont.) 3. ACOPY name 1 THRU name 2 

Name 1 and name 2 are labels from one to eight alphanumeric 
characters which must be contained in a type 1 or type 2 
record. The tape will be searched until the first label is 
found. The file containing that label (name 1) will be 
reproduced as will the following files up to an including the 
file containing name 2. 

4. ASKIP n FILES. ( < n < 89 ) 

Will skip n files. 

Typewriter Inputs: 

Any typewriter inputs preceeding the M A" will be ignored. 
A period or carriage return is used as a terminator. A 
typewriter input message may be deleted by typing /. 

Example: To replace the third file on a SYMBOL System Tape. 

With System tape on photo reader type: 

1. ACOPY BOOT. 

(Copies Boot, Pre-loader, and Loader) 

2. ACOPY 2 FILES 

(Copies 2 files, printing the labels of the External Definition 
Items) 

3. Place file to be inserted in photo reader and type: 
ACOPY 1 FILE 

4. Replace system tape in photo reader and type: 
ASKIP 1 FILE 

(Skips the file being replaced) 

5. ACOPY n FILES 

(n is the remaining number of files on the system tape.) 

Example: To replace LOG on 920 POP Tape: 

Place POP Tape in photo reader and type: 

1. ACOPY BDD THRU DIB. 

(POP Tape will be copied from BDD through DIB with labels 
typed out. ) 
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USE: (Cont. ) 2. Place new LOG routine in photo reader and type: 

ACOPY 1 FILE. 
(This will copy new LOG routine.) 

3. Place POP tape back in reader and type: 

ASKIP 1 FILE. 
ACOPY n FILES, 
(n is the remaining files on the POP Tape. ) 

Note: If the number of files on a tape to be copied is unknown, 

a number larger than the actual number of files on the tape 
may be used. In this case, the tape being copied will spin 
off its reel after all files have been copied. 

Example: ACOPY 75 FILES. 

Error Messages: 

1. COPY INSTRUCTION NOT FOUND 

Cause: 1 . First word following n A" is not a "COPY" or 
a "SKIP". 

2. A space follows the "A". 

2. RECORD NOT IN SYMBOL FORMAT. 
Cause: Record type is not a 0, 1, 2, or 3. 

3. RECORD NOT IN BINARY FORMAT. 

Cause: Last record read was not in Standard Binary format, 

4. ILLEGAL BOOT FORMAT ON TAPE READ 

Cause: First record read after "COPY BOOT" type-in is 
not a standard bootstrap loader. 
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00001 01 00200 
00200 

00200 76 01335 
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0021.6 76 01331 
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00220 41 00217 
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002 2 3 32 01231 
002 2 4 7 5 01307 
002 2 5 7 6 1231 

00226 70 01323 

00227 01 00223 

00230 7 1 n 01315 

00231 02 02001 

00232 32 01231 
002 3 3 7 5 01307 
0023 4 7 6 01231 
0023 5 7 01310 
002 36 01 00 240 
002 3 7 01 00 25 3 
002 40 7 01311 
002 4 1 01 0024 3 
00242 01 00264 
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9RU 
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3 


AORG 


0200 


4 BEGIN 


LDA 


REMOD 


5 


STA 


INMFY 


6 


LDX 


M24 


7 


LDA 


ZERO 


3 


STA 


PARAMl+20,2 


9 


9RX 


$-1 


10 


LDA 


RESET 


11 


STA 


CnTKO+1 


12 


LDA 


RESET2 


13 


STA 


CKINP 


14 
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THUP 


16 
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16 
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RECADR 


17 


LDX 


M6 


14- 


LDA 


BLNKS 


19 


STA 


F IRST+6.2 


20 


BRX 


S-! 


21 
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22 
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1 . 1 


2 3 


W1M 


CHPUF 
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LDB 
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SKM 
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2 3 


LDX 


M4 
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1*1 


30 


UIM 


CHPUF 


3 1 


LDB 
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3? 


LDA 
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3 3 
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34 


BRU 


$ + 2 J 


35 


9PU 


NXC AR 


3 c 


SKM 


PERID 


i 7 


3RU 


$ + 2 


3 ;"* 


=iRU 


ENTIN 



REPLACE INSTRUCTION UHICH 
HAS BEEN MODIFIED 

REINITIALIZE STORAGE LOCATIONS 
AND INSTRUCTIONS UMICH HAVE 
BEEN MODIFIED 



END 



OF REINI f ! ALI7 ATION 



HAS CONTROL CmARACTE^ 6EFN TYPED 
YES BEGIN EDII 0^ KEY-INS 

P0C0O07 7 

noooooi? 

pack word and c-ti next cha.ractfr 
P0C-r»nc:*3 

TFPMINaTF INPUT M£?Sfi'^F 
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NXCAR 



E N D I N 



STCNT 



SKM 


CARET 


BRU 


$*? 


BRU 


ENCIN 


SKM 


KYERR 


BRU 


$♦2 


BRU 


DELETE 


STA 


NAMEl+4,2 


3RX 


TYPE+1 


BRM 


UOPDX 


LD8 


CHMSK 


UIM 


CHPUF 


LDA 


CHBUF 


SKM 


BLANK 


BRU 


$ + 2 


BRU 


$-<" 


LDX 


M4 


BRU 


TYPE+5 


DISW 




BRM 


CR 


BRM 


U 9 R D X 


LD9 


SEVENS 


LDA 


FIRST 


SKM 


SKIP 


BRU 


$♦? 


BRU 


SKPRC 


SKM 


COPY 


BRU 


CTFRR 


LDA 


FIRS1+1 


SKM 


BOOT 


BRU 


$ + 2 


BRU 


399T1 


BRM 


SEPO 


BRM 


STCNT 


BRU 


RDPTE 


PZE 





LD8 


SEVENS 


LDA 


FIRST+2 


SKM 


FILE 


BRU 


NqTYP 



00000052 



DELETE KEY-IN 



NO - BRANCH IF<4 CHARACTERS KEYED IN 
GO T8 ROUTINE TO PACK 4CHAR/W8RD 



ONE CHARACTER BUFFER 

CHARACTER NOT A BLANK - ACCEPT IT 

INPUT TERMINATOR HAS BEEN TYPED 

INTIAL UORD KEYED IN 

DO NOT SKIP FILES 

GO TO ROUTINE TO SKIP FILES 

ILLEGAL INSTRUCTI3N 
CHECK SECOND WORD INPUT 
IS BOOT COPY DESIRED 

YES - GO TO BOOT COPY ROUTINE 

NOT BOOT - CHECK COPY PARAMETERS 

NO INPUT PARAMETERS SET UP FILE CNT 

R8U11NF TO CONVERT DECIMAL INPUTS 
TO OCTAL NLM8FR 

INSURE THAT KEYIN IS LFGAL 
INPUT IS OBVIOUSLY FOULED UP 
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00312 75 01417 

00313 76 01256 

00314 70 01420 

00315 01 00317 

00316 01 00330 

00317 -0 6720 002 

00320 75 01230 

00321 6620 024 

00322 35 01233 

00323 71 01233 

00324 76 01230 

00325 6720 006 

00326 ? 55 01344 

00327 01 00332 

00330 75 01230 

00331 6620 022 

00332 35 01256 
Q0333 60 01256 

00334 51 00305 

00335 02 00000 

00336 43 01140 

00337 01 00200 

00340 76 01230 

00341 35 01241 

00342 43 00777 

00343 76 01421 

00344 35 01225 

00345 02 02604 

00346 32 1 01225 

00347 61 01226 

00350 61 01225 

00351 40 21000 

00352 01 00346 
0^353 02 00000 

00354 60 01226 

00355 60 01225 
003?6 43 00761 
00357 76 01226 
00360 35 01263 



78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 DIGIT 

93 

94 

95 

96 



LDB 
LDA 
SKM 
9RU 
BRU 
LCY 
LOB 
RCY 
STA 
LDX 
LDA 
LCY 
ADD 
BRU 
LDB 
RCY 
STA 
SKR 
BRR 



97 DELETE DISW 

98 3RM 

99 BRU 

100 RDPTE LDA 

101 STA 

102 3RM 

103 LDA 

104 STA 

105 RPTU 

106 WIM 

107 MIN 

108 MIN 
10° BRTW 

110 BPU 

111 DISW 

112 SKR 

113 SKR 

114 BRM 

115 CHTK0 LDA 

116 STA 



=0770000 

FIRST+1 

=0600000 

$ + 2 

DIGIT 

2 

ZERO 

20 

XTOTEN 

XT0TEN 

ZERO 

6 

TENS*2 

$ + 3 

ZERO 

13 

FIRST+1 

FIRST+1 

STCNT 

CR 

BEGIN 

ZERO 

NOREC 

BUFTS 

=02000 

STRGE 

1*4 

*STRGE 

CONST 

STRGE 

$-4 

CONST 
STRGE 
CKE0F 
CONST 

R E F1 



WORD CONTAINING BCD VALUE OF N FILES 

UNITS OR TENS COUNT 

TENS 

UNITS 



TENS INTO A REG — UNITS IN 



BRING UNITS INTO A REG 
ADD TENS COLUMN 



UNITS COLUMN ONLY 

OCTAL EQUIVALENT OF DECIMAL INPUT 



IGNORE KEY-INS - kESTART 



STARTING ADDRESS OF TAPE INPUT BUFFER 



UORD COUNT 



ADJUST FOR FREE WIM 



NUMBER OF WORDS IN THIS RECORD 
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00361 





61 





00360 


117 


MIN 


$-1 


00362 





61 





01241 


lid 


MIN 


NOREC 


00363 





76 





01225 


119 


LDA 


STRGE 


00364 





54 





01226 


120 


SUB 


CONST 


00365 





35 





01235 


121 


STA 


RADR 


00366 





43 





00502 


122 


BRM 


CKZERO 


00367 





76 





01230 


123 


LDA 


ZERO 


00370 





35 





01226 


124 


STA 


CONST 


00371 





01 





00345 


125 


BRU 


RDPTE+5 


00372 





00 


00000 


126 PNCH 


PZE 





00373 





43 





00777 


127 


BRM 


BUFTS 


00374 





61 





01241 


126 


MIN 


NOREC 


00375 





71 





01422 


129 


LDX 


=040000 


00376 





60 





01241 


130 


SKR 


NOREC 


00377 





76 





01241 


131 


LDA 


N9REC 


00400 





75 





01342 


132 


LDB 


SEVENS 


00401 





70 





01230 


133 


SKM 


ZERO 


00402 





01 





00406 


134 


BRU 


AGAIN 


00403 





76 





01334 


135 


LDA 


RESET 


00404 





35 





00360 


136 


STA 


CHTK8+1 


00405 





51 





00372 


137 


3RR 


PNCH 


00406 





76 





00360 


138 AGAIN 


LDA 


CHTKO+1 


00407 





54 





01241 


139 


SUB 


NOREC 


00410 





35 





0124Q 


140 


STA 


TEMP 


00411 





76 


1 


01240 


141 


LDA 


*TFMP 


00412 





35 





01226 


142 


STA 


CONST 


00413 





02 





00644 


143 


PTLU 


1.4 


00414 





60 





01226 


144 LOOP 


SKR 


CONST 


00415 





20 





00000 


145 


MOP 




00416 





53 





01226 


146 


SKN 


CONST 


00417 





01 





00421 


147 


BRU 


$♦2 


00420 





01 





00423 


148 


BRU 


$♦3 


00421 


2 


12 





02000 


149 


MIU 


02000-2 


00422 





41 





00414 


150 


BRX 


LOOP 


00423 





02 


14000 


151 


TOPU 




00424 





76 





01230 


152 


LDA 


ZERO 


00425 





35 





01226 


153 


STA 


CONST 


00426 





43 





00777 


154 


BRM 


BUFTS 


00427 





01 





00376 


155 


BRy 


PNCH+4 



SET ADDRESS TO STQRE URD-S IN NXT RECDi 
KEEP COUNT OF TYPE 1 AMD 2 RECORDS 



ADDRESS OF FIRST wORn OF TAPE RECORD 
BRM TO CHECK RECORD TYPE 



LAST RECORD UAS TYPE 1 OR 7 kEPEAT 



ADJUST RECORD COUNT FOR FIRST PASS 



IF NOREC*0, ALL RECORDS HAVE aEEN 

PUNCHED - IF NOT, PUNCH NEXT RECORD 
RESTORE MODIFIED INSTRUCTION 



NUMBER OF WORDS Its THIS RECORD 



SKIP IF COMPLETE RECORD HAS BEEN PNCH| 



PUNCH ANOTHER RECORD 
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00430 
00431 
00432 
00433 
0O434 
00435 
00436 
00437 
004 4 
0044! 
004 4 2 
00443 
Q04 4 4 
0O4 4 5 
004 4 6 
004 4 7 
00 4 50 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
0O461 
00462 
00463 
0O464 
00465 
0^466 
0°467 
0O470 
00471 
0O4 7 2 
004 73 
004 7 4 
00475 
004 7 6 



76 
35 
02 
32 
61 
61 
40 
01 
02 
60 
76 
75 
70 
01 
01 
43 
71 
02 
12 
41 
02 
43 
43 
01 
43 
71 
02 
60 
20 
S3 
01 
01 
12 
41 
02 
76 
35 
40 
CI 



01421 
01225 

02604 

1 01225 
01226 
01225 
21000 

00*33 
00000 
01226 
02000 
01342 
01343 
00447 
00460 
00777 
01320 
02641 
01401 
00 45 2 
14 000 
C077 7 
01140 
00200 
00777 
01422 
00644 
01226 
o 00000 
1226 
00 4 7Q 
00472 
02000 
00 46 3 
14003 
01230 
01226 
20200 
00500 



56 
57 
5tt 
55 
60 
61 
6 2 
63 
64 
*5 
66 
67 
68 
f9 
70 
71 
72 
73 
74 
75 
7* 
77 
78 
79 
a 

8 1 
o 2 

9 3 
84 
8 5 
86 
8 7 
8 
89 
90 
91 
92 
93 
94 



BesTi 



P N m P T 



l?9Pt 



LDA 

S T A 

RPTW 

WIM 

MI N 

MIN 

RRTW 

BRU 

DISW 

SKR 

LDA 

LDB 

SKM 

BRU 

9 R U 

9RM 

LDX 

TYPW 

MI J 

BRX 

TflPw 

SRM 

8PM 

BRU 

9RM 

LDX 

PTLW 

SKR 

NOP 

SKN 

BRU 

BRU 

MI W 

BRX 

T6PU 

LDA 

STA 

BPT 

BRU 



=02000 

STRGfc" 

1*4 

* S T R G E 

C9NST 

STRGt 

f-4 

C 3 M S T 
02000 

SEVENS 
UIM1 

$.♦? 

PMHh| 

BUFTS 

M9 

1*4 

MSG2+3*; 

$-1 

BUFTS 

CR 

BEGIN 

BUFTS 

=040000 

1.4 

C9NST 

CONST 
$♦2 
$ + 3 

02000*2 
L9PP1 

ZER9 
CONST 
2 
$ + 2 



REAL; 6f»0T 9NL 



BOOTSTRAP HAS BEEN REAP 

first u9pd of bootstrap 

check for legal B3otstpap 
illegal qq8t 

type illegal 889t message 



03200003 



PUNCH P99T RECORD 9NLY 



IS L8ADEP WANTED 

N9 PUNCH B09T AND PRF-L3ADER ONLY 
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OH477 
00500 
0^501 
00502 
00503 
00504 
00505 
00506 
00507 

0O510 
0O511 
00512 
00513 
00514 
00515 
005 1 6 
00517 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
0^533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 



76 
35 
01 
00 
76 
75 
70 
01 
51 
70 
01 
51 
70 
01 
01 
70 
01 
53 
01 
43 
53 
53 
01 
43 
43 
43 
43 
43 
01 
00 
76 
35 
43 
02 
32 
61 
6i 
40 
01 



01423 
01256 

00340 
00000 

1 01235 
01325 
01246 
005IQ 
00502 
0)247 
00513 
00502 

01250 
00516 

C0520 
01 245 
012C1 
01224 

00523 
00676 
01224 
01223 
00527 
00633 
01032 
01003 
00372 
00534 
00200 

00000 

01421 
01225 
00777 
02604 
01225 
01226 
01225 

21000 

00541 



1Q5 


LDA 


= 01 


196 


STA 


FIPST+1 


197 


BRU 


RDPTE 


193 C*ZERP P?E 





199 


LDA 


*RADR 


200 


LDB 


TYPMSK 


201 


SKM 


RTYPE-M 


?G2 


3 P U 


$♦2 


2C3 


BRR 


CK7ER3 


204 


SKM 


RTYPE+2 


205 


BRU 


$*? 


206 


BRR 


CKZERO 


207 


SKM 


R T Y P t + 3 


208 


BRU 


$ + ? 


20 9 


BRU 


S*3 


210 


SKM 


RTYPE 


21 1 


9PU 


NOTYP 


212 


SKN 


F L A G 1 


213 


BRU 


5+2 


214 


BRM 


CKLAST 


215 


SKN 


FLAG1 


216 


SKN 


FLAG 


217 


3RU 


*♦? 


213 


3RM 


CKINP 


219 


BRM 


LBLCKt 


220 


BRM 


CKPIN 


221 


BRM 


PNCH 


222 


BRM 


RDPTE2 


223 


BRU 


BEGIN 


224 RDPTE2 PZE 





225 


LDA 


=02000 


226 


STA 


STPGE 


227 


BRM 


BUFTS 


228 


RPTW 


1,4 


229 


UIM 


*STRGE 


230 


MIN 


CONST 


231 


MIN 


STRGE 


232 


9PTU 




233 


BRU 


$-4 



SET TO PUNCM PRE-L6A0ER ♦ LOADER 

FIRST WORD OF RECORD JUST READ 
TYPEJ 

TYPE2 



TYPE DATA RECORD 



IF SET - PARAMETERS ARF NEEDED 



TEST F6R BINARY RECORDS 
RECORDS ARE OK - PUNCH THEM 
READ REMAINING BLOCKS CM RECORD 



ROUTINE TO PUNCH EY BLOCKS 
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00546 02 00000 

00547 60 01226 

00550 76 02000 

00551 75 01424 

00552 70 01322 

00553 01 00717 

00554 43 00777 

00555 71 01422 

00556 02 00644 

00557 60 01226 

00560 20 00000 

00561 53 01226 

00562 01 00564 

00563 01 00566 

00564 7 12 02000 

00565 41 00557 

00566 02 14000 

00567 76 01230 

00570 35 01226 

00571 76 02000 

00572 75 01325 

00573 70 01250 

00574 01 00535 

00575 43 01140 

00576 53 01223 

00577 01 00601 

00600 01 00624 

00601 60 01256 

00602 20 00000 

00603 53 01256 

00604 01 00340 

00605 51 00534 

00606 00 00000 

00607 76 01257 

00610 70 01360 

00611 01 00614 

00612 43 00625 

00613 01 00622 
006j[4 76, 01260 



234 
235 

236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
27o 
271 
272 



L00P2 



L00P3 



SERCH 



DISU 

SKR 

LDA 

LDB 

SKM 

8RU 

BRM 

LDX 

PTLU 

SKR 

NOP 

SKN 

BRU 

BRU 

MIW 

BRX 

TOPU 

LDA 

STA 

LDA 

LDB 

SKM 

BRU 

BRM 

SKN 

BRU 

BRU 

SKR 

NOP 

SKN 

BRU 

BRR 

PZE 

LDA 

SKM 

BPU 

BRM 

BRU 

LDA 



CONST 

02000 

=070000 

BINRY 

NTBIN 

BUFTS 

=040000 

1*4 

CONST 

CONST 
$ + 2 
$♦3 

02000*2 
L00P2 

ZERO 

CONST 

02000 

TYPMSK 

RTYPE+3 

RDPTE2+1 

CR 

FLAG 

$ + 2 

SERCHH-2 

FIRST+l 

FIRST+1 

RDPTE 

RDPTE2 



FIRST+2 

THRU 

$ + 3 

LIMITS 
SERChl 
FIRST+3 



ADJUSl FOR FREE UJM 



SI RECORD BINARY 
NO-ILLEGAL FORMAT 



HAVE ALL WORDS 3EEN PUNCHED 

NO 

YES 



END RECORD TEST 



IF SET CHECK FOR LAST PARAMETER 
IF NOT CHECK FOR FILE COUNT 



ARE THERE MORE RECORDS 



IF TRUE - 1ST PARAMETER IS < 5 CHAR 



/ 
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00615 70 01360 

00616 51 00606 

00617 61 00630 

00620 43 00625 

00621 60 00630 

00622 76 01342 

00623 35 01223 

00624 01 00340 

00625 00 00000 

00626 76 01256 

00627 35 01221 

00630 76 01260 

00631 35 01222 

00632 51 00625 

00633 00 00000 

00634 76 01241 

00635 35 01244 

00636 76 01421 

00637 35 01243 

00640 76 01263 

00641 35 01240 

00642 76 1 01243 

00643 75 01342 

00644 70 01221 

00645 01 00647 

00646 01 00671 

00647 61 01243 

00650 60 01240 

00651 76 01240 

00652 70 01230 

00653 01 00642 

00654 61 00640 

00655 60 01244 

00656 76 01244 

00657 70 01230 

00660 01 00640 

00661 76 01336 

00662 35 00640 

00663 53 01224 



273 




SKM 


THRU 


274 




BRR 


SERCH 


275 




MIN 


LIMITS+3 


276 




BRM 


LIMITS 


277 




SKR 


LIMITS+3 


278 


SERCH1 


LDA 


SEVENS 


279 




STA 


FLAG 


260 




BRU 


RDPTE 


281 


LIMITS 


P2E 





282 




LDA 


FIRST+1 


283 




STA 


PARAM1 


284 




LDA 


FIRST+3 


285 




STA 


PARAM2 


286 




9RR 


LIMITS 


287 


CK INP 


PZE 





288 




LDA 


NOREC 


289 




STA 


BINCK 


290 




LDA 


=02000 


291 




STA 


FRSTUD 


292 


CK INP1 


LDA 


REF1 


293 




STA 


TEMP 


294 


CK INP2 


LDA 


♦FRSTUD 


295 




LDB 


SEVENS 


296 




SKM 


PARAM1 


297 




BRU 


$♦2 


298 




BRU 


SETFl 


29 9 




MIN 


FRSTUD 


300 




SKR 


TEMP 


301 




LDA 


TEMP 


302 




SKM 


ZERO 


303 




BRU 


CKINP2 


304 




MIN 


CKINP1 


305 




SKR 


BINCK 


306 




LDA 


BINCK 


307 




SKM 


ZERO 


3G3 




BRU 


CKINPl 


309 




LDA 


RESET2 


310 




STA 


CKINPl 


311 




SKN 


FLAG1 



NO COPY PARAMETERS USED 

FIRST PARAMETER > 4 CHARACTERS 

RESTORE TO INITIAL VALUE 

SET FLAG INDICATING USE OF PARAMETERS 

SET 

PARAM 1 AND PARAM2 
TO CORRECT 

PARAMETERS 

DETERMINED BY 

VALUES KEYED IN 
ROUTINE TO FIND 1ST PARAMETER 
NUM3ER OF RECORDS 



CHECK FOR INPUT PARAMETER 



REDUCE WORD COUNT 

HAVE ALL WORDS OF THIS RECORD 

BEEN CHECK 
YES 
REDUCE TEMP RECORE COUNT 

HAVE ALL RECORDS sEEN CHECKED 

NO 

YES -RESTORE 

PGM VALUES 
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3RU 


$ + 2 


3RR 


C*INP 


LDA 


ZER9 • 


STA 


CONST 


BRU 


SKPRC+i 


LDA 


SEVENS 


STA 


FLAG1 


LDA 


RESE12 , 


STA 


CKIMPt 


BRR 


CK INP 


PIE 





LDA 


mot 


STA 


CK INP2+2 


LDA 


M9D2 


STA 


SETF1 


3RM 


CK INP 


SKN 


F L A G I 


3RU 


$ + 2 


BRR 


CK t AS f 


LDA 


ZERO 


STA 


FLAG 


STA 


FIRST* I 


LDA 


SERC^l 


STA 


SETFl 


LDA 


M 9 D 3 


STA 


CK INP 2*2 


3RR 


C K L A 6 T 


B*M 


9UFTS 


LDX 


M7 


TYPw 


1 .4 


MIU 


M S G 4 ♦ 7 , 2 


BRX 


$-i 


T8Pu 




3RM 


BUF TS 


3RM 


C* 


HLT 




BRU 


BEG I f\ 


3RM 


s r C N T 


LDA 


=02000 
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00664 
00665 
00666 
00667 
00670 
00671 
00672 
00673 
0b674 
00675 
00676 
00677 
00700 
00701 
00702 
00703 
007Q4 
00705 
00706 
00707 
00710 
00711 
00712 
00713 
00714 
0O7i5 
00716 
00717 
00720 
00721 
0^7 22 
00723 
00724 
00725 
00726 
00727 
00730 
00731 
00732 



01 
51 

76 
35 
01 
76 
35 
76 
35 
51 



00666 
00633 
01230 
01226 
00732 
01342 
01224 
01336 
00540 
00633 



00 00000 
76 01337 
35 00644 
76 01340 
35 00671 
43 00633 
53 01224 
01 00707 











51 

76 



00676 
01230 
01223 
01256 
76 00622 
35 00671 



35 
35 



76 
35 











vO 




01341 
00644 
00676 
00777 
01317 
02641 
01417 
00722 



51 

43 

71 

02 

2 12 

41 

02 140C3 

43 00777 

43 01140 

00 00000 

01 00200 

43 00305 

76 01*21 



312 
313 

314 
315 

316 
317 
318 
319 

320 
321 

322 
323 

324 
325 
326 
327 

328 

32 9 
330 

33 1 
332 
333 
334 
335 
336 
337 
338 
339 
340 

34 1 
342 
343 
344 
345 
346 
347 
348 
349 
350 



SETFl 



CKLAST 



N T 9 I N 



LAST PARAMETER NO? FOUf^D 



PARAMETER HAS BEEN F«U> D 

MODIFY SEARCH R9Uf INF 

TO SEARCH F9R LAST PARAMETERS 



IF NEG. LAST FILE NOT FOUND 



LAST FILE HAS PEEN F*UND 
RESTORE 

VALUE 9F INITIAL CONf 

and Punch l a s \ 

*■ ILE 



ROUTINE T 9 PUNCH \ T BINARY FORMAT 
MESSAGE 



SKPRC 



S«!P F ILE ROUTINE 
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00733 
00734 
00735 
00736 

n 740 
0*741 
0*742 

00743 
00744 

00745 
00746 
00747 

00750 
00751 
00752 
0*753 
0*754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 
00776 
00777 
01000 
01001 



35 
43 
02 
32 
61 
40 
01 
02 
76 
75 
70 



01 

53 

01 



76 
35 
01 
60 
20 
53 
01 
01 
00 
76 
75 
70 
5i 
76 
70 
51 



43 
02 
12 
02 
43 
01 
00 
40 
01 



01225 
00/77 
02604 
01225 
01225 

21000 

00776 

00000 

02000 
01325 
01250 
00732 
01223 
00754 
01334 

00360 
00624 

01256 
00000 
01256 
00732 
00200 

00000 

01226 
01342 
01423 
00761 
02000 
01425 
00761 
00777 
00644 
02000 

14000 

00777 

00200 

00000 

21000 

01000 



351 

352 
35 3 

354 
355 

35 6 
75 7 
358 
7 5$ 

36 
3*1 
362 
36 3 

36 4 
365 
366 
367 
363 
369 
370 

37 1 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 

38 8 
389 



CKEOF 



BUFTS 



ST A 

BRM 

P°Tw 

UIM 

MIN 

BRTU 

BRU 

DISW 

LDA 

LD3 

SKM 

3RU 

SKN 

BRU 

LDA 

ST A 

BRU 

SKR 

NOP 

SKN 

BRU 

BRU 

PZE 

LDA 

LD8 

SKM 

BRR 

LDA 

SKM 

BRR 

BRM 

PTLU 

MIU 

T6PW 

BRM 

BRU 

PZE 

BRTU 

BRU 



STw&t 

BUFTb 

t .4 

* S T R G E 

STRGt 

02000 

TYPMSK 

R TYPE +3 

SKPRC+1 

FLAG 

$ + 4 

RESET 

CHTKOM 

SERCH1+2 

FIRST+1 

FIRST+1 

SKPRC+1 

BEGIN 



CONST 

SEVENS 

= 1 

CKEOF 

02000 

=017170000 

CKEOF 

BUFTS 

1*4 

02000 

BUFTS 
BEGIN 


$-1 



IS SKIP NORMAL S R S E A 9 T * 
SEARCH TYPE SKIP 

MORE FILES REMAIN TO 9F SKI=»Pr~D 
CHECK F9R EOF RECORD 



IS RECeRD ONE WORE 
NO 

YES-IS IT AN EOF 

NO 

YES PUNCH EOF 
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01002 51 00777 

01003 00 00000 

01004 76 01241 

01005 35 01244 

01006 76 01421 

01007 35 01243 

01010 76 1 01243 

01011 75 01424 

01012 70 01322 

01013 01 00717 

01014 60 01244 

01015 75 01426 

01016 76 01244 

01017 70 01230 

01020 01 01022 

01021 01 01027 

01022 76 01263 

01023 55 01243 

01024 35 01243 

01025 61 01022 

01026 01 01010 

01027 76 01336 

01030 35 01022 

01031 51 01003 

01032 00 00000 

01033 76 01241 

01034 35 01244 

01035 76 01421 

01036 35 01243 

01037 76 1 01243 

01040 75 01325 

01041 70 01230 

01042 01 01047 

01043 76 01336 

01044 35 01347 

01045 35 01131 

01046 51 01032 

01047 76 01263 
01050 35 01234 



390 BRR 

391 CKBIN PZE 

392 LDA 

393 STA 

394 LDA 

395 STA 

396 RECIM LDA 

397 LDB 

398 SKM 

399 BRU 

400 SKR 

401 LDB 

402 LDA 

403 SKM 

404 BRU 

405 BRU 

406 THUP LDA 

407 ADD 

408 STA 

409 MIN 

410 BRU 

411 RESETl LDA 

412 STA 

413 BRR 

414 LBLCK1 PZE 

415 LDA 

416 STA 

417 LDA 

418 STA 

419 LBLCK2 LDA 

420 LDB 

421 SKM 

422 BRU 

423 RFSET3 LDA 

424 STA 

425 STA 

426 3RR 

427 LBLCK3 LDA 

428 STA 



BUFTS 


NOFEC 

BINCK 

=02000 

FRSTUD 

*FRSTWD 

=070000 

BINRY 

NTBIN 

BINCK 

'077777777 

BINCK 

ZERO 

$ + 2 

RESETl 

REF1 

FRSTUD 

FRSTUD 

THUP 

RECIM 

RESET? 

THUP 

CKBIN 



NOREC 

BINCK 

=02000 

FRSTUD 

*FRSTUD 

TYPMSK 

ZERO 

L3LCK-5 

RESET? 

LBLCK3 

RECADR 

LBLCK1 

REFl 

RCLNTH 



NUMBER OF RECORDS READ 



image of first word of record 
mask of binary coee position 

IF RECORD IN BINARY FORMAT 
NOT BINARY FORMAT 
REDUCE RECORD COUNT 



ARE THERE MORE RECORDS TO CHECK 

YES 

NO 



STARTING ADDRESS OF NEXT RECORD 



NJM3ER OF RECORDS 

FIRST WORD OF REC3RD 

IF RECORD TYPE RESTORE AND EXIT 

exi r 



NUMBER OF WORDS IN RECORD 
TO pE CHECKED 
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01051 
01052 
01053 
01054 
01055 
01056 
01057 
01060 
01061 
01062 
01063 
01064 
01065 
01066 
01067 
01070 
01071 
01072 
01073 
01074 
01075 
01076 
01077 
01100 
01101 
01102 
01103 
01104 
01105 
01106 
01107 
OHIO 
01111 
01112 
01113 
01114 
01115 
01116 
01117 



61 

76 

55 

35 

53 

01 

76 

54 

35 

02 

71 

76 

75 

70 

01 

12 

6720 

41 

61 

01 

35 

12 



6720 
35 



41 
61 
76 
75 
70 
01 
02 
76 
35 
43 
76 
54 
35 
75 
53 



01047 

01243 

01427 

01236 

01236 

01113 

01236 

01430 

01237 

02041 

01315 

01237 

01327 

01331 

01075 

01326 

006 

01065 

01237 

01103 

01242 

01242 

006 

01242 

01065 

01237 

01236 

01330 

01237 

01063 

14000 

01324 
01064 
01140 
01234 
01427 
01234 
01342 
01234 



429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
446 
44 9 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 



LBLCK 



LATYP 



LAOUT 



CKADR 



LADNE 



NXLABL 



MIN 


LBLCK3 


LDA 


FRSTUD 


ADD 


= 03 


STA 


RADRl 


SKN 


*RADR1 


BRU 


NXLABL 


LDA 


RADRl 


SUB 


= 02 


STA 


RADR2 


TYPU 


1*1 


LDX 


M4 


LDA 


♦RADR2 


LDB 


LAMSK 


SKM 


BLNKS 


BRU 


LAOUT 


MIU 


TBLNK 


LCY 


6 


9RX 


L A T Y P ♦ 1 


MIN 


RADR2 


BRU 


CKADR 


STA 


LAR9T 


MIU 


LAR9T 


LCY 


6 


STA 


LAROT 


BRX 


LATYP+1 


MIN 


RADR2 


LDA 


RADRl 


LDB 


MSKAD 


SKM 


RADR2 


BRU 


LATYP-l 


TOPU 




LDA 


ADRR 


STA 


LATYP 


BRM 


CR 


LDA 


RCLNTH 


SUB 


*03 


STA 


RCLNTH 


LDB 


SEVENS 


SKN 


RCLNTH 



WORD C6NTAINING ITEM TYPE 
SHOULD LABEL BE TYPED 



FIRST LABEL WORD 



60 BLANKS 
OUTPUT 12 BLANK 

SECOND LA3EL WORD 



OUTPUT CHARACTER 
GET NEXT CHARACTER 



MASK ADDRESS FIELE 

GET 2ND WORD OF LABEL 

SET TO INITIAL ADilRESS 

LENGTH OF RECORD REMAINING 

TO BE 

CHECKED 
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1120 





01 





01 122 


1121 





01 





01 124 


1 122 





70 





01423 


1123 





01 


o 


01 136 


1 124 





60 





01244 


1125 





76 





0! 244 


1126 





70 





01230 


1127 





01 





01131 


1130 





01 





01043 


1131 





76 





01263 


1 132 





55 





01243 


1 133 





35 





012 4 3 


1134 





61 





01131 


1135 





01 





01037 


1136 





76 





01236 


1137 





01 





01053 


1140 





00 


00000 


1141 





71 





01431 


1 142 


n 


41 





01142 


1143 





43 





00777 


! 144 





02 


c 


02041 


1 145 





12 





01432 


1 146 





02 


1*000 


1147 





43 





00777 


1 150 





71 





01431 


1 151 





41 





01151 


1152 





51 





01140 


1153 





00 


00000 


1154 





71 





01315 


1155 


2 


76 





01255 


1156 





6720 


022 


1157 





75 





01230 


1160 





6620 


022 


1161 


2 


35 





01255 


1162 





41 





01155 


1163 





71 





01314 


1164 





75 





01230 


1165 


2 


76 





01254 


1166 





67Q0 


006 



463 
469 
470 
471 
472 
473 
474 
475 
476 



BRU 
BRU 
SKM 
BRU 
SKR 
IDA 
SKM 
3RU 
BRU 



477 RFCADR LDA 

478 ADD 

479 STA 
4B0 MIN 
481 BRU 
4 82 NFXT3 LDA 
4ft 3 BRU 
4 8 4 C R P7.E 
425 LDX 

486 3RX 

487 3RM 

4 8 3 T Y P w 

4 8 9 Mid 

490 TftPW 

491 3RM 

492 LDX 
4 9 3 B R X 

494 BRR 

495 Uf»RDX PZE 

496 LDX 

497 LDA 

498 LCV 

499 LDB 

500 RCY 

501 STA 

502 9RX 

503 LDX 

504 LDB 

505 LDA 

506 LSh 



$♦? 

$♦3 

= 01 

NEXT 3 

BINCK 

BINCK 

ZERO 

$ + ? 

R E S E T 3 

REFI 

F R S T U D 

FRSTWD 

RECADR 

LBLC*2 

RADR1 

L R I. C K ♦ 1 



=-6500 

$ 

BUFTS 

1 .1 

=052000000 

BUFTS 

=-6500 

S 

CR 



M4 

NAME1 +4,2 

18 

ZEP9 

13 

NAMEl+4,2 

$-5 

M3 

ZER9 

NAMEl+3#2 

6 



HAVE ALL WORDS BEEN CHFCKED 
N9 

VES 

ARE TnE*E MSRE REC*R n S If sf. CHECKED 

YES 

N9 



FIRST U8PD 9? NEXI R-CPRD 



F9RM WPRD FROM KEYED INPUTS 
SET T9 PACK U9RDS 
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01167 


2 


55 


01255 


507 




ADD 


NAMEl+4,2 


01170 


C 


41 


01166 


508 




BRX 


$-2 


01171 





35 


01255 


509 


INMFY 


STA 


FIRST' 


01172 





61 


01171 


510 




MIN 


$-1 


01173 





71 


01315 


511 




LDX 


M4 


01174 





76 


01331 


512 




IDA 


BLNKS 


01175 


2 


35 


01255 


513 




STA 


NAME1+4.2 


01176 





41 


01175 


514 




BRX 


$-1 


01177 





02 


20001 


515 




Rev 




01200 





51 


01153 


516 




BRR 


WORDX 


01201 





43 


01140 


517 


N9TYP 


3RM 


CR 


01202 





71 


01317 


518 




LDX 


M7 


01203 





02 


02641 


519 




TYPW 


1.4 


01204 


2 


12 


01371 


520 




MJW 


MSGl+7,2 


01205 





41 


01204 


521 




BRX 


S-l 


01206 





02 


14000 - 


522 




TO-py 




01207 





43 


01 l 4 


523 




9RM 


CR 


01210 





01 


00200 


524 




BRU 


BEGIN 


01211 





43 


01140 


525 


CTERR 


BRM 


CR 


01212 





71 


01317 


526 




LDX 


M7 


01213 





02 


02641 


527 




TYPW 


1.4 


01214 


2 


12 


01410 


528 




MIW 


MSG3+7,2 


01215 





4i 


01214 


529 




BRX 


$-1 


01216 





02 


14000 


530 




TSPU 




01217 





43 


01140 


531 




9RM 


CR 


0t220 





01 


00200 


532 




BRU 


BEGIN 


01221 





00 


00000 


533 


PARAM! 


PZE 





01222 


n 


00 


00000 


534 


PARAM2 


PZE 





01223 





00 


00000 


535 


FLAG 


P ZE 





01224 





00 


00000 


536 


FLAG1 


PZF 





01225 





00 


00000 


537 


STRGE 


PZE 





01226 





00 


00000 


538 


CtfNST 


P£E 





01227 





00 


00000 


539 


CPUNT 


PIE 





01230 





00 


ocooo 


5^0 


7FR0 


*7.E 





01231 





00 


00000 


541 


CH9UF 


PZE 





01232 





00 


00000 


542 


MEM 


PZE 





01233 





00 


00000 


543 


XT9TEN 


p/.e 





01234 





00 


00000 


54 4 


RCLNTH 


?Z"E 





01235 





00 


oooco 


545 


RADR 


PZE 
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01236 


00 00000 


546 


RADR1 


PZE 





01237 


00 ooooo 


547 


RADR2 


PZE 





01240 


00 ooooo 


543 


TEMP 


PZE 





01241 


00 ooooo 


549 


NOREC 


PZE 





0124-2 


00 ooooo 


550 


LA ROT 


PZE 





01243 


00 ooooo 


551 


FRSTUD 


PZE 





01244 


00 ooooo 


552 


BINCK 


PZE 





01245 


00 ooooo 


553 


RTYPE 


PZE 





01246 


100C0000 


554 




DATA 


oicoooooo 


01247 


20000000 


555 




DATA 


020000000 


01250 


30000000 


556 




DATA 


030000000 


01251 




557 


NAME1 


RES 


4 


01255 




558 


FIRST 


RES 


6 


01263 




559 


REFl 


RES 


20 


01307 


00000077 


560 


CHMSK 


DATA 


000000077 


01310 


00000012 


561 


BLANK 


DATA 


000000012 


01311 


00000033 


562 


PERID 


DATA 


000000033 


01312 


00000052 


563 


CARET 


DATA 


000000052 


01313 


00000061 


564 


KYERR 


DATA 


000000061 


01314 


00077775 


565 


M3 


DATA 


000077775 


01315 


00077774 


566 


M4 


DATA 


000077774 


01316 


00077772 


567 


M6 


DATA 


000077772 


01317 


00077771 


568 


M7 


DATA 


077771 


01320 


00077770 


569 


M9 


DATA 


000077770 


01321 


00077754 


570 


M24 


DATA 


077754 


01322 


00050000 


571 


BINRY 


DATA 


000050000 


01323 


00000057 


572 


DELTA 


DATA 


057 


01324 


76 1 01237 


573 


ADRR 


LDA 


*RADR2 


01325 


70000000 


574 


TYPMSK 


DATA 


070000000 


01326 


12000000 


575 


TBLNK 


DATA 


012000000 


01327 


77000000 


576 


LAMSK 


DATA 


077000000 


01330 


00077777 


577 


MSKAD 


DATA 


077777 


01331 


60606060 


578 


BLNKS 


DATA 


060606060 


01332 


00 OOOOO 


579 


ERROR 


HLT 




01333 


76 01261 


580 


TEST 


LDA 


FIRST+4 


01334 


35 01263 


581 


RESET 


STA 


REFl 


01335 


35 01255 


582 


REMOD 


STA 


FIRST 


01336 


76 01263 


583 


RESET2 


LDA 


REFl 


01337 


70 01222 


584 


MOD 


SKM 


PARAM2 



Catalog No. 012014 



KEY ERROR TO BE COMPLETED 
REINITIALIZE STORAGE LOCATION 
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01340 76 01230 

01341 70 01221 

01342 77777777 

01343 03200003 

01344 00000000 

01345 00000012 

01346 00000024 

01347 00000036 

01350 00000050 

01351 00000062 

01352 00000074 

01353 00000106 

01354 00000120 

01355 22464663 

01356 23464770 

01357 62423147 

01360 63305164 

01361 26314325 

01362 51252346 

01363 51241245 

01364 46631231 

01365 45126270 

01366 44224643 

01367 12264651 

01370 44216333 

01371 31434325 

01372 27214312 

01373 22464663 

01374 12264651 

01375 44216312 

01376 46451263 

01377 21472512 

01400 51252124 

01401 12234647 

01402 70123145 

01403 62635164 

01404 23633146 

01405 45124546 

01406 63122646 



585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 



M0D2 

M0D3 

SEVENS 

UIM3 

TENS 



BOOT 
COPY 
SKIP 
THRU 
FILE 
MSG1 



605 MSG3 



LDA 

SKM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 



604 MSG2 TEXT 



TEXT 



ZERO 

PARAM1 

077777777 

003200003 



012 

024 

036 

050 

062 

074 

0106 

0120 

<BOOT> 

<COPY> 

<SKIP> 

<THRU> 

<FILE> 

<RECORD NOT 



IN SYliBOL FORMAT. > 



<ILLEGAL BOOT FORMAT ON TAPE READ> 



< COPY INSTRUCTION NOT FOUND. > 
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014Q7 
01410 
014 11 
1 4 l 2 
0M13 
01414 
1 4 J 5 
01416 

01417 
01420 
01421 

01422 
0M23 
0! 424 
0U25 
01426 
01427 
01430 
014 31 
014 3 2 



644524 31 
51252346 
51 24124* 
46631231 
45122231 
452151 70 
I22b465l 
4 4 2 I 6 3 3 "* 
00000200 
00770000 
00600000 
00002000 
00040000 
00000001 
00070000 
17170000 
77777777 
00000003 
00000002 
77763234 
52000000 



606 MSQ4 TtXT <RFC8*D NSl IN ril^AkV F9PMAT.> 



6C7 



END 



0200 



